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SUBJECT 

Descriptions of Mod 400 Operating Environments, User Access to the System, 
and Selected Examples of the Use of System Software Components 


SOFTWARE SUPPORTED 

This publication supports Release 0100 of the Series 60 (Level 6) GCOS 6 
MOD 400 Operating System; see the Manual Directory of the latest GCOS 6 
MOD 400 System Concepts manual (Order No. CB20) for information as to later 
releases supported by this manual. 


ORDER NUMBER 

CB22, Rev. 0 


January 1978 



Preface 


The purpose of this manual is to provide the user with programmer-oriented 
information regarding the various operating environments available under the 
GCOS 6 Mod 400 Operating System and programmer procedures for terminal 
startup and access to the system. Also contained in this manual are examples of 
the use of various system software components: the editor, macro preprocessor, 
assembler, COBOL and FORTRAN compilers, and the sort program. 

This material is presented in 9 sections, as outlined in the Introduction. The 
Introduction also presents suggested usages of the Mod 400 manual set for 
application programmers, system programmers, and operators. 
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Section 1 
Introduction 


( 


( 


The GCOS 6 Mod 400 operating system for the Models 6/30 and 6/40 minicomputers provides a 
comprehensive set of system services which form a base for executing user-written applications, 
Honeywell-supplied applications, and program development tools. It provides an online, inter¬ 
rupt-driven operation for multiple users and a single, low-priority batch operation typically 
used for program development and associated activities. 

A number of different operating environments are possible, controlled in part by options 
exercised at system configuration, and in part by options chosen by the system operator at 
startup or at various times during the operating day. These environments are more fully 
described in Section 2, "Operating Environments.” 

Access to the system by users can be achieved in a variety of ways, again depending in part on 
system configuration options selected. These options are concerned mainly with the definition of 
local and/or remote terminal devices and how they are connected to the system. These are 
described in Section 3, "User Terminal Startup.” Other access options, normally under the 
control of the system operator, are concerned with the procedures by which a user identifies 
himself (logs in) to the system through a connected terminal. This subject is treated in Section 4, 
"User Access to the System.” 

The remaining sections comprise descriptions and examples of the use of various system 
components: the Editor (Section 5), the Assembler and Macro Preprocessor (Section 6), the 
COBOL Compiler (Section 7), the FORTRAN Compiler (Section 8), and the Sort component 
(Section 9). Each of these sections presents terminal and/or line printer listings representing the 
actions performed. In these listings, heading lines may vary in detail depending on the 
component that initiated the listing or, in some cases, may be omitted. However, in actual use, 
the user will see heading lines consisting of three major fields of information, as shown below. 

1. System Identification: GCOS6 MOD400- ® rrr-mm/dd/hhmm 


S 

L 


rrr 

mm/dd/hhmm 


— SAF 

— LAF 

— Release number of the operating system 

— Date/time when operating system was created (month, day, 
hour, and minute) 


2. Component Identification: xxxxx-rrrr-mm/dd/hhmm 

xxxxx — Component name 
rrrr — Revision number of component 
mm/dd/hhmm — Date/time that specified revision of component was created 
(month, day, hour, and minute) 

3. Time of program execution: yyyy/mm/dd hhmm:ss.t 

Date/time of program execution (year, month, day, hour, minute, second, and tenth of 
second) 


GUIDE TO USING THE MANUAL SET 

This guide to the manuals is arranged according to functions that might be performed by an 
applications programmer, a systems programmer, or an operator. As used in this guide, the 
applications programmer writes applications programs; the system programmer configures the 
system and defines the environment for each application; and the operator operates the system 
from the operator terminal. These functions could be performed by three different persons or by 
the same person serving in the different capacities. 
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APPLICATIONS PROGRAMMER’S MANUAL GUIDE 


Figure 1-1 illustrates the suggested sequence in using the manuals. If you wish to start using 
the system by writing an application program, begin by using the Programmer’s Guide manual. 
It illustrates: (1) various ways to gain access to the system, (2) a sample Editor session, and (3) 
for application languages, the procedure for performing program preparation and execution. 
Working with the small subset of commands used in the examples is a good approach to learning 
the system command set. This approach for getting started assumes that a system programmer 
has already configured and started up a suitable application environment. While using the 
system, you may wish to familiarize yourself with the system facilities described in the System 
Concepts manual. 

Through examples, the Programmer’s Guide illustrates how to use the system facilities. 
Other manuals provide reference material. The Program Preparation manual contains Editor 
directives (statements) to create and update an application language source unit. For each of the 
languages the appropriate language reference manuals contain the description of the language 
statements. Operating system dependencies, if any, that affect how you write the application 
are described in the Programmer’s Guide. If the application uses communications, refer to the 
Communications Processing manual. Read the Data File Organizations and Formats manual if 
you require a better understanding of a language-supported file organization that is to be used 
in an application, or if you must calculate the size of a data file. You can use Monitor macro calls, 
as described in the System Service Macro Calls manual, in assembly language programs. Before 
your program can be entered for execution, it must be linked as described in the Program 
Execution and Checkout manual. 

For program compilation or assembly and execution, the procedures described in the 
Programmer’s Guide might be sufficient. To obtain more control over the execution of your 
program or utilize the system facilities more completely or efficiently, use the commands 
described in the Commands manual. If you wish to use the operator terminal, read the 
Operator’s Guide. In many cases, the description of commands must be supplemented by system 
concepts described in the System Concepts manual. Rather than read all the conceptual material 
at one time, you may find it more meaningful to refer to it in conjunction with the appropriate 
reference material. The Commands manual also describes the utilities. An assembly language 
program, the Patch, Debug, and Dump utilities are described in the Program Execution and 
Checkout manual; file transmission from Level 6 to a host system is described in the File 
Transmission manual appropriate to the host system. Error messages and return status codes 
are listed in the System Messages manual. 

SYSTEM PROGRAMMER’S MANUAL GUIDE 

Figure 1-2 illustrates the suggested sequence for using the manuals. The System Building 
manual provides you with the configuration directives (statements) and startup procedures to 
configure and start up a MOD 400, a Remote Batch Facility (RBF), or a Data Entry Facility 
(DEF) system. You must know the conceptual material in the System Concepts manual in order 
to successfully use the configuration directives. To tailor an applications environment suitable 
for the intended application, use the operator commands described in the Operator’s Guide 
manual. Error messages are listed in the System Messages manual. If you are working with an 
application that runs under the BES operating system, the System Concepts manual contains 
MOD 400 and BES compatibility considerations. 

OPERATOR’S MANUAL GUIDE 

Figure 1-3 illustrates the suggested sequence for using the manuals. Specific operator job 
functions must be determined by each installation; a large system might have a person assigned 
as an operator; a small system might have each programmer also act as an operator. The 
Operator’s Guide indicates the system procedures performed through the operator terminal and 
describes operator commands used in system operation. 

The Pr ogrammer’s Guide contains examples using commands (described in the Commands 
manual) that are similar to operator commands. The System Concepts manual provides an 
understanding of the operating system. Note that the Operator’s Guide describes using the 
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APPLICATIONS PROGRAMMER 



ASSEMBLY. COBOL, FORTRAN. 
RPG APPLICATION PROGRAMMER 



Figure 1-1. Applications Programmer Guide to Manuals 
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operator terminal for operator functions to enter operator commands to the system task group, 
or for user functions to enter commands to a user task group. To run the utilities, use the 
commands (described in the Commands manual) entered through the operator terminal func¬ 
tioning as a user terminal. Error messages are listed in the System Messages manual. 

RBF AND DEF USER MANUAL GUIDE 

Figure 1-4 illustrates the suggested sequence for using the manuals. The system programmer 
configuration functions have been done and the system is ready to be used for Remote Batch 
Facility (RBF) functions or Data Entry Facility (DEF) functions. The Programmer's Guide 
manual provides sample login execution environments typical of ones that might be at your 
facility. The Remote Batch Facility User's Guide is used for RBF operations and the Data Entry 
Facility User's Guide is used for DEF operations. 



Figure 1-4. RBF and DEF User Guide to Manuals 
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Section 2 
Operating Environments 


The Mod 400 operating system allows a wide variety of operating environments, ranging from 
a single operator-controlled configuration to one in which the operator, other users, or a 
combination if both can control the configuration at any time during the operating day. This 
range of operating environments is described in this section. 

OPERATOR-ONLY ENVIRONMENT 

This environment is one in which a designated operator and a limited number of users 
(typically programmers developing application programs) use the system on a first-come first- 
served basis for developing and testing programs. All work is done through the operator 
terminal, through either the system task group or a single online task group created by the 
system startup procedure. Certain functions can be performed through either of the two task 
groups; others can be done only through the system task group or the online task group — refer 
to the Operator's Guide and the Commands manuals for details on which functions can be 
performed from each task group. 

ALL-ONLINE ENVIRONMENT 

An all-online environment is one in which one or more users can concurrently use the 
facilities of the operating system to perform interactive tasks of any kind permitted by the 
command language described in the Commands manual, plus any user applications that can be 
invoked through the command processor. This latter category consists of user programs in the 
form of bound units that are called from a task group in which the command processor is 
declared as the lead task when the task group is created. A task group can also be created by the 
operator or another online user, declaring the application bound unit as the lead task; in this 
case the creation of the task group and its activation results directly in the execution of the 
declared bound unit, without the need to enter its name as a command. 

An example of this kind of environment is one in which several task groups have the command 
processor as lead task and one or more other task groups have specific application programs such 
as the Data Entry Facility and user-created programs as lead tasks. The former task groups can 
be used for editing source program files, entering requests for jobs to be run in the batch task 
group (see below), requesting printouts of files, etc. Concurrent with these activities can be the 
execution of the user application programs constituting the latter set of task groups. From the 
user’s point of view, each task group has the appearance of having control of the system. 

ONLINE/BATCH ENVIRONMENT 

This environment differs from the all-online environment only in that, in addition to the 
creation of the online task groups, a batch task group has also been created by the designated 
operator from the operator terminal. Once this task group has been created, any online task 
group having the command processor as its lead task can enter requests for jobs to be run 
through the use of the EBR (ENTER BATCH REQUEST) command. Typical of such batch jobs 
would be requests for compilations, links, application program checkout runs, and the like. 

Creation and utilization of the batch task group requires the existence of at least the 
designated operator terminal, through which the batch task group is created and through which 
requests to it can be entered. Jobs run in the batch task group are normally controlled by a 
previously created file containing commands directing the execution of the jobs, and not by 
interactive dialog from a terminal. Section 4 contains additional information on the use of the 
batch task group. 
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DEDICATED APPLICATION ENVIRONMENT 


This is an environment in which system startup or operator action subsequent to startup 
results in the creation of one or more task groups in which a user application, and not the 
command processor, is the lead task. In such an environment no interactive processing takes 
place; rather, whatever processing occurs is dependent on the nature of the application — e.g., 
data entry, an inventory application, etc. 

MIXED ENVIRONMENT 

The Mod 400 system does not restrict the user to any one of the foregoing environments at any 
given time. Given a large enough system, any of these can be combined with any others to 
provide concurrent interactive, batch, and dedicated operations on a selected terminal basis. 
That is, a selected set of terminals can be associated with interactive tasks, while others can be 
related to the dedicated application tasks. 
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Section 3 
User Terminal Startup 


Terminal startup procedures vary according to the type of terminal and whether the terminal 
is a noncommunications or a communications terminal. A noncommunications terminal is one 
that is connected to the system through the multiple device controller (MDC), while a 
communications terminal is connected through the multiline communications processor 
(MLCP). An MLCP-connected terminal can be connected either through a modem or through a 
dial-up telephone line. In the former case, when the modem is made ready, the terminal is 
connected and ready for operation. With a dial-up connection, the user must dial the number 
which connects the telephone to the system and wait for the signal that indicates the connection 
is made. For an MDC-connected terminal, simply turning on the power to the terminal suffices 
to connect it to the system. Subsequent actions depend on whether or not the listener/login 
processor is activated, and whether the terminal is declared by the operator to be associated with 
a specific task group. 

STARTUP WITH THE LOGIN FACILITY 

If the operator has activated the listener/login processor, and the terminal being started up is 
one which is monitored by the login processor, then the user must log in using the procedures 
described in the Operator’s Guide manual after performing the actions required for physically 
connecting the terminal to the system. When the connection is made to an MLCP-connected 
terminal, the system will display a system identification message, a message of the day if one is 
defined, and indicate that it is ready to accept a login request. For an MDC-connected terminal, 
displays occur only if the terminal is active when the login processor is activated. 

TASK GROUP-SPECIFIC TERMINAL STARTUP 

If a terminal is declared by the operator to be associated with a specific task group, and is not 
monitored by the login processor, then, when the terminal is connected, it is ready to accept 
whatever input or output is dictated by the logic of the task’s execution. If the command 
processor is the lead task, a ready message will be issued, indicating that the terminal is ready to 
accept commands. If a user application is the lead task, it should issue a message to the terminal 
indicating that it has recognized the availability of the terminal and is ready for execution. 
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Section 4 
User Access To The System 


Once a terminal has been connected to the system as described in Section 3, a user can gain 
access to the system in any of several ways. Which of these ways is used at any given time 
depends upon operator actions taken during and after system startup. Examples of various 
access procedures are given in this section. Each example states any prerequisite operator 
actions which would have been performed. 

ACCESS BY LOGGING IN 

Configuration and system startup have been done. The operator, through the system task 
group, has activated the login function as described in the Operator’s Guide manual. The 
terminal is one which is connected through the MDC, and was active when the login function 
was activated. The system message of the day has been displayed and the login prompter 
message has been printed. The user’s login procedure at this point depends on the terminal login 
characteristics for this terminal. Procedures are described below. 

DIRECT LOGIN TERMINAL 

In addition to the message of the day, if the command processor is the lead task, the ready 
message will have been displayed, and no further action is required. The user can begin to enter 
commands. 

If an application is the lead task, further action, if any, depends on the characteristics and 
logic of the application. 

ABBREVIATED LOGIN TERMINAL 

After the login prompter message has been issued, the user enters a one-character abbreviation 
such as 

A 

If the login line corresponding to the abbreviation " A” indicates that the command processor 
is the lead task, the system responds with the ready message, and the user can then begin to 
enter commands. 

If an application is the lead task, further action, if any, depends on the characteristics and 
logic of the application. A terminal that accepts an abbreviated login also accepts a full login 
command line. 


FULL LOGIN TERMINAL 

After the login prompter message has been issued, the user must enter a full login line as 
described in the Commands manual. If the login line specifies or implies that the command 
processor is the lead task, the system responds with the ready message, and the user can begin to 
enter commands. 

If the lead task is an application, further action, if any, depends on the characteristics and 
logic of the application. 
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COMMAND PROCESSOR AS LEAD TASK 

For a user named W. Smith to log in to the system, specifying the command processor as the 
lead task, a login line such as 

L SMITHW -HD A VOL22>SMITHW 

could be used, where, A VOL22>SMITHW is the working directory pathname. As soon as the 
ready message is displayed, the user can begin to enter commands for either serial or concurrent 
execution. In particular, if the -HD argument was not used, the working directory can be 
specified with a CWD (CHANGE WORKING DIRECTORY) command 

CWD A VOL22>SMITHW 
APPLICATION AS LEAD TASK 

For the same user to log in specifying a task other than the command processor, his login line 
could be 

L SMITHW -PO MS-UPDATE -HD A VOL22> SMITHW 

where MS-UPDATE is the name of the bound unit which is to be the lead task. The bound unit is 
located in the directory A VOL22>SMITHW. If it is located in some other directory, a full 
pathname must be used as the argument, such as 

L SMITHW -PO A VOL23>MS_UPDATE -HD A VOL22>SMITHW 

After the login line is processed, control rests with the application. It is strongly advised that 
the application issue some kind of message indicating that it has been successfully loaded and is 
ready to begin, or has begun, execution. It may be simply an informative message or a message 
requesting some action on the part of the terminal user. 

ACCESS THROUGH THE OPERATOR OR ANOTHER USER 

The system operator or an online user can create and activate an online task group through 
the use of the CG (CREATE GROUP) and EGR (ENTER GROUP REQUEST) commands, or 
through the SG (SPAWN GROUP) command. The application being run in this task group can 
be in the form of a series of commands implying either serial or concurrent execution, as shown 
below. 

SERIAL EXECUTION OF APPLICATION TASKS 

The operator or another user has created and activated a new online task group whose lead 
task is the command processor, and whose command-in file is the MDC- or MLCP-connected 
terminal being used by the new user. 

As soon as the ready message is displayed, the new user can begin to enter commands. After 
each command request is terminated, indicated by the display of the ready message, control 
returns to command input level and another command can be entered. The following example 
shows the entry of commands to initiate a COBOL compilation, the assignment of the user-out 
file to a line printer, and the printing of the COBOL compilation listings. 

COBOL PROGA [ctl_arg] Invoke the COBOL compiler 


compiler responses 
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RDY: 

FO >SPD>LPT01 
RDY: 

PR PROGA.L 
RDY: 


Indicates end of compilation 

Assign user-out to line printer 

Indicates assignment complete 

Invoke PRINT command to print compilation output 

Indicates printout complete 


CONCURRENT EXECUTION OF APPLICATION TASKS 


The operator or another user has created and activated a new online task group whose 
lead task is the command processor, and whose command-in file is the MDC- or 
MLCP-connected terminal being used by the new user. 

As soon as the ready message is displayed, the new user can begin to enter commands. 
This example shows the entry of commands to initiate a COBOL compilation, the 
assignment of the user-out file to a line printer, and the printing of a file which is 
unrelated to the compilation, and thus has no time dependency upon completion of the 
compilation. 

ST 1 -EFN COBOL [ctl_arg] Invoke COBOL compiler task at relative level 1 


RDY. 

FO >SPD>LPT01 


Indicates completion of the ST command; 
compilation is in progress 

Assign user-out file to line printer 


RDY: 


Indicates assignment complete 


ST 3 -EFN PR -ARG FILE1 Invoke PRINT task to print FILE1, unrelated to 

compilation 

RDY: Indicates completion of the ST command; printing 

is in progress concurrent with compilation 

This is an example of multitasking. The responses from the COBOL compiler, indicated 
in the previous example, will be interspersed with other input and output lines, depending 
on when they occur in relation to these lines. The user should always ensure that a ready 
message has occurred in response to his last command entry before making another entry. 


CONCURRENT EXECUTION FROM SEVERAL TASK GROUPS 

Several task groups have been created and activated, each associated with a different 
command-in terminal, and each having the command processor as its lead task. 

As soon as the ready message appears at each terminal, the user at that terminal can 
begin to enter commands to do serial or concurrent application execution. The task groups 
are concurrently active for execution and contend with each other for system resources. 
Each user appears to have control of the system. 

EXECUTION OF AN APPLICATION FROM THE BATCH TASK GROUP 

An application environment has been specified consisting of several online task groups 
and the batch task group (whose lead task is the command processor). 

A user can enter one or more EBR (ENTER BATCH REQUEST) commands from each of 
the online task groups to obtain processing in the batch task group. These requests are 
queued and will be satisfied on a first-in first-out basis. The EBR requires a command-in 
file containing commands to be executed in the batch task group. The file is normally 
disk-resident in the user’s working directory having previously been created. If a terminal 
were specified as the command-in device, the user at the terminal must wait to enter a 
command, until the command processor processes this EBR command. Otherwise, batch 
processing will stall waiting for this batch request to complete. 
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To request is to execute the command file, PAYR_IN, on directory A ZSYS01>IW. The 
application is to compile, link, and execute an application program PAYROLL. 

EBR PAYR_IN -WD A ZSYS01>IW 

The file PAYR-IN contains the following commands: 

COBOL PAYROLL -LO -COUT >SPD>LPT01 
LINKER PAYROLL -COUT >SPD>LPT01 
LIB A ZSY S02 >ZCRT 
LINK PAYROLL 
MAP;QT 

GET DEPT4 2 

GET >SPD>LPT02 3 

PAYROLL 

BYE 

Any time after the file PAYR_IN has been created, it can be invoked through an EBR to 
control batch execution. The command file can contain any combination of legitimate 
commands, such as compile/link/execute sequences, including any necessary file control 
commands (GET, REMOVE); or file print/dump commands. The main constraint is that the 
commands be entered into the file in the same manner as if they were being executed from 
the online terminal, keeping in mind any time dependencies that might exist among 
various tasks. Responses from the invoked commands that would normally be written to 
the user terminal in an online environment are written to a file PAYR_IN.AO in the working 
directory of the user who issued the EBR command. 

EXECUTION FROM THE DATA ENTRY FACILITY (DEF) 

One or more task groups whose lead task is the Data Entry Facility (DEF) have been 
spawned. 

When DEF has indicated at the terminal that it is ready to accept data entry actions, the 
user can begin to enter directives. No other preliminary actions are required. 

Refer to the Data Entry Facility User's Guide manual for details on the operation of the 
Data Entry Facility. 

It should be noted that the presence of the Data Entry Facility in no way restricts the 
presence of other online task groups or the batch task group. These functions can be carried 
on concurrently as described in the preceding paragraphs. 

ACCESS THROUGH THE OPERATOR TERMINAL 

A special case of system access is that in which all interactive and/or batch executions 
are initiated through the operator terminal. The major difference between this execution 
mode and those described previously is that the interface to the system is through the 
Operator Interface Manager (OIM), described in detail in the Operator's Guide manual. The 
most user-visible aspect of this mode is the issuance by the OIM of task group id 
designations and message numbers, which require, in many cases, task group id and 
message number entries from the operator terminal in response. 

The operator terminal is the only way in which the system as initially delivered to the 
user can be accessed. Initial startup results in the creation of the system task group ($S) 
and one online task group ($H). For small system environments in which the operator and 
one or more users (e.g., programmers writing and debugging their own programs through 
the operator terminal on a first-come, first-served basis) share the operator terminal, this 
type of startup, appropriately modified for the physical system configuration, may be 
sufficient. 


v. 
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Typically, the operator in this kind of configuration could initiate other task groups in 
any of the combinations described in Section 2 through the system task group, and also use 
the $H task group for any function which is not normally done in the system task group 
(e.g., editing files, assembling or compiling, linking, debugging, and the like). In particular, 
in the originally-released system, the $H task group is used to construct new CLM_USER 
files for system startup, and STARTUP.EC files for use during the startup process. There is 
no requirement that the existence of the $H task group be maintained permanently — the 
originally-released STARTUP.EC file which results in the creation of the $H task group 
can be modified at any time to delete the function of creating this task group. 

Any of the operations described above can be done through the operator terminal from an 
online task group such as $H, or any other online task group created as a function of system 
startup or at some later time, and specifying the operator terminal as its command-in file. 
Most of the examples in Sections 5 through 9 show operations using the online task group 
$H. They illustrate the issuance of the task group identification prefix by the OIM in 
operator terminal typeouts, and in some cases the changing of the OIM default task group 
identification to $H, eliminating the need to enter the prefix explicitly when issuing 
commands to this task group. If these same operations were done in a task group associated 
with a terminal other than the operator terminal, the prefixes would not be issued nor need 
to be specified at that terminal. 


USER ACCESS TO THE SYSTEM 


4-5 


CB22 





Section 5 
Using the Editor 


This section illustrates how Editor directives are used to modify the contents of four files, 
merge files into one file, and place macro routines in the macro library directory. The Editor 
directives are in file SMPCMDFL; the four files to be altered are SMPM01 (example 1), 
SMPM02 (example 2), SMPM03 (example 3), and SMPM04 (example 4). The examples are 
shown below. SMPM01 and SMPM02 are altered and written to files SMMPL1 and SMMPL2, 
respectively, and then combined to form file SMPMAC.P containing macro statements and calls 
to be processed by the macro preprocessor. SMPM03 and SMPM04 are altered and written as 
files SMMPL3 and SMMPL4, respectively; they are again altered and written as macro library 
routine files SAMPL1 and SAMPL2, respectively, into the MACRO <EXEC_LIB directory to be 
used during macro preprocessing. Editor output directed to the operator's terminal is shown in 
an operator's terminal typeout. 

EDITOR DIRECTIVE DESCRIPTION 

The following is a line-by-line explanation of the action taken by the Editor when it processes 
the directive file, A SYSMAC>SMPCMDFL, of Figure 5-1, and an explanation of the operator 
terminal typeouts displayed in Figure 5-2. Editor directive lines are identified by line number. 
In the typeout, the response to these directives begins after the line ($H) EDIT-0100-11/21/0827. 
The default working directory is A SYSMAC so that either a full pathname of the form 
A SYSMAC>SMPM04 or simple pathname SMPM01 can be used. 


1 

R *SYSMAC>SMPM01 


2 

X 


3 

6,9CLE SETA 

' PR0G2.START2t,]NAME' 

4 

L4 SETA 

EQU 

5 

L5 SETA 

RESV 

6 

L6 SETA 

TEXT 

7 

L7 SETA 

XDEF 

8 

IF 


9 

21 LIBM 

'EXEC“LIB'.SAMPLl .SAMPL2IF I? 

10 

s.-USK(SMMPLl) 


11 

X 


12 

1,$QX 


13 

R SMPM02 


14 

1,13VL/#L/.-12ll3GL/#L/.*9J.S*#l f ?L »P = 

15 

1,$M(SMMPL2)X 


16 

R SMPM03 


17 

8,17S/SET8/SETA/8, 

1 7 P 

18 

1,$M(SMMPL3)X 


19 

R *SYSMAC>S*IPM04 


20 

X29A IFE 

?G7,?LC,IFE1 

21 

FAIL 


22 

ENDIT IFNL 

?P2.?LC. * 

23 

IFEl NULL l F 


24 

/ss,.le/l/$$/ld/** 

/L0 

25 

1r SK(SMMPL4) 


26 

XI,$0 


27 

8(SMMPL 1) 


28 

*SYSMAC»SMMPll 


29 

liSOX 


30 

B(SMMPL2) 


31 

# *SY$MAC>S.MMPL2 


32 

1,30 



Figure 5-1. Sample Editor Directives in File SMPCMDFL 


USING THE EDITOR 


5-1 


CB22 




33 BCSMMRL3) 

34 *i "SYSMAOSMMPL3 

35 1f $0 

36 8(SMMPL4) 

37 # *SYSMAC>SMMPL4 

36 1 f 5DX 

39 R SMMPL1 

40 /INSERT/L0/ADD L7/LD 

41 15R SMMPL2 

42 X52LD 

43 E F0 >SPD*LPT00 

44 1 r $LW SMPMAC.P 

45 lfSO 

46 R SMMPL3 

47 X/L4/I/LE/S/SETB/SETA/ 

48 t,$LK *Z00B02>LDD>MACR0>EXEC~LIB>3AMPL1 

49 i,$D 

50 R SMMPL4 

51 /OLET/D 

52 Q 

53 1 ,$LW *Z00B02>LDD>MACRO>EXEC~LIB>SAMPL2 

54 X 

55 E FO 

56 Q 


Figure 5-1 (cont). Sample Editor Directives in File SMPCMDFL 


BO 6R0UPSD 

(SD)ON-LINE DEBUG REV* 1976/11/20 1115 04 SYSREV* 4014 

C tSHi 
RDN 

<SH>RDYl 
CUD “SYSMAC 
(SH)RDY* 

LWD 

(SH)~SYSMAC 

(SH)RDYf 

ED -L1NEJLN 75 -IN "SYSMAOSMPCMDFL 
C$H)EDIT 0120 

(SH) 16 -> (0) ~SYSMAC>SMPM01 

C$H)EDIT MODE 


(SH) 

2 




(SH) 

18 

-> MOD (0) *SYSMAC>SMPMQ1 


(SH) 

18 

(SMMPL1) 



(SH) 

0 

-> (0) ~SYSMAC>SMPM01 


(SH) 

18 

(5MMPL1) 



(SH) 

1 

* 



(SH) 

2 

* THESE UNPROTECTED 

COMMENT LINES WILL BE 

DROPPED 

(SH) 

3 

• WHEN MACRO PREPROCESSED. 


(SH) 

4 

* 



(SH) 

5 

?G4 #L4 

?Gl (G1 INITIAL 

VALUE-S) 

(SH) 

6 

#L5 

?IX(#LE#?PE)?GB?P1 


(SH) 

7 

?G5 #L6 

?P3?VL(35)?P4#LZ#LA 


(SH) 

8 

#L7 

?G4 


(SH) 

9 

#L7 

?P6?P8?GB?AL(?PC)?P7 


(SH) 

10 

#L8 

?SS(?P4#7#1) 


(SH) 

11 

#L9 

?VP(11> 


(SH) 

12 

7G6 #LB 

?G7 


(SH) 

13 

7GA #L4 

?P9+?G3 


(SH) 


ENDM 



(SH) 

14 




(SH) 

0 

-> (0) "SYSMAOSMPM02 


(SH) 

18 

(SMMPL1) 



(SH) 

36 

(SMMPL2) 



(SH)L4 


SETA ORG 



(SH)L5 


SETA DC 



(SH)L6 


SETA LDR 



(SH)L7 


SETA STR 



(SH)L8 


SETA CALL 




Figure 5-2. Terminal Responses from Sample Editor Directives of Figure 5-1 
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(SH) L9 
(SH)LA 
(SH) LB 
(SH) LC 
CSH) LD 
(SH) 

0 

SETA LB 

SETA BBT 

SETA SLD 

SETA # 

SETA CZ»32 # 3 

-> (0) * SYSMAC>SMPMO 3 

(SH) 

18 

(SMMPL1) 

(SH) 

36 

(SMMPL2) 

(SH) 

45 

(SMMPL3 > 

(SH) 

34 

-> (0) * SYSMAC>SMPMO4 

(SH) 

18 

(SMMPL1) 

(SH) 

36 

(SMMPL2) 

(SH) 

45 

(SMMPL3) 

(SH) 

28 

?G5 TP Z ?SS(?LE*1*5> 

(SH) 

10 

DELTS DC 'DELETE LINE ENDING IN S'S 

(SH) 

28 

"DEL DC 'DELETE LINE BEGINNING IN " ' 

(SH) 

36 

-> MOD CO) 'SYSMAOSMPM04 

(SH) 

18 

(SMMPLl) 

(SH) 

36 

(SMMPL2) 

(SH) 

45 

(SMMPL3) 

(SH) 

36 

CSMMPL4) 

(SH) 

0 

(0) "SYSMAOSMPMQ4 

(SH) 

0 

-> (SMMPLl) ~SYSMAC>SMMPLl 

(SH) 

36 

(SMMPL2) 

(SH) 

45 

(SMMPL3) 

(SH) 

36 

(SMMPL4) 

(SH) 

0 

(0) "SYSMAC>SMPM04 

(SH) 

0 

(SMMPLl) "SYSMAOSMMPL1 

(SH) 

0 

(SMMPL2 ) < *SYSMAC>SMMPL2 

(SH) 

0 

CSMMPL3) * SYSMAC> SMMPL3 

(SH) 

0 

-> (SMMPL4) *SYSMAC>SMMPL4 

(SH) 

3 

* INSERT LN 2 LIBM STATEMNT BEFORE THIS LN.*THEN DEL THIS LN 

(SH) 

11 

* ADD L7 SETA VALUE W/CHANGE FUNCTION .. THEN DELT THIS LN 

(SH) 

0 

(0) * SYSMAC>SMPMO4 

(SH) 

0 

(SMMPLl) *SYSMAC>SMMPLl 

(SH) 

0 

(SMMPL2) * SYSMAC> SMMPL2 

(SH) 

0 

(SMMPL3) ~SYSMAC>SMMPL3 

(SH) 

52 

-> MOD (SMMPL4) "SYSMAOSMMPL2 

(SH) 

52 

♦USED EDIT READ FUNCT TO ADD "SMPMO2" PORTION TO FILE* 

(SH) 

0 

(0) "SYSMAOSMPMQ4 

(SH) 

0 

(SMMPLl) ~SYSMAC>SMMPL1 

(SH) 

0 

(SMMPL2) * SY SMAC > SMMPL2 

(SH) 

0 

(SMMPL3 > "SYSMAOSMMPL3 

(SH) 

45 

-> (SMMPL4) **SYSMAC>SMMPL3 

(SH)MODIFIED BUFFERS EXIST* QUIT DEFERRED 

(SH) 

0 

(0) *SYSMAC>SMPMO 4 

CSH) 

0 

(SMMPLl) *SYSMAC> SMMPLl 

(SH) 

0 

(SMMPL2) *SYSMAC>SMMPL2 

(SH) 

0 

(SMMPL3) ~SYSMAC>SMMPL3 

(SH) 

35 

-> CSMMPL4) "ZQ0B02>LDD> MACRO > EXEC _LIB > SAMPL2 

($H)RDY« 



Figure 5-2 (cont). Terminal Responses from Sample Editor Directives of Figure 5-1 
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Line 

No. Editor Directive Description 


Terminal 

Typeout 


1 R A SYSMAC > SMPMO1 

Read the 16-line file (example 1) into the current buffer (0). 

2 X 

Display the status of the current buffer (denoted by —>). Sixteen 
lines were read into current buffer (0). 

3 6,9Ctext 

Change lines 6 through 9 of the buffer with this text for line 6. 

4 Text for line 7. 

5 Text for line 8. 

6 Text for line 9. 

7 Text, this additional line is inserted after the previous four lines 

were changed. Note that the Editor recognizes tab characters. 

8 !F 

Terminate input mode and enter edit mode. 

9 2Itext!F!? 

Insert text before line 2. 

Terminate input mode. 

Display current mode. 

10 =.-l;$K(SMMPLl) 

Display current line pointer. 

Move the current line pointer back one line to a new current line 
pointer position. Copy the lines from that position to the last 
line in the current buffer into auxiliary buffer, SMMPL1. 

11 X 

Display status of current and auxiliary buffers. There are 18 
lines in current buffer (0), which has been modified (MOD) since 
it was read in, and 18 lines in auxiliary buffer SMMPL1. 

12 1,$DSX 

Delete the first through last line of the current buffer (0). 
Display status of buffers. 

13 R SMPM02 

Read 36-line file (example 2) into the current buffer (0). 

14 l,13VL/#L/.-12;13GL/#L/.-9;S , #L , ?L , P= 

For lines 1 through 13, display line numbers and all lines that 
do not contain the expression #L. 


Move the current line pointer back 12 lines from line 14 to line 2. 
For lines 2 through 13, display all lines and their line numbers 
containing the expression #L. 


16->(0) ... 


EDIT MODE 

2 

18-> MOD (0) 
18 (SMMPL1) 


0-X0) ... 

18 (SMMPL1) 


1 * 

2*THESE ... 


4* 

5?G4#L4 ... 


13?GA #L4 ... 
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Line 

No. Editor Directive Description 


Terminal 

Typeout 


Move the current line pointer back nine lines to line 5 and 
substitute ?L for #L. 

Print current line. 

Print current line pointer value. 

15 1,$M(SMMPL2)X 

Move line 1 through the last line of the current buffer to 
auxiliary buffer SMMPL2. The contents of the current buffer (0) 
are erased. Display the status of the buffers. 

16 R SMPM03 

Read 45-line file (example 3) into current buffer (0). 

17 8,17S/SETB/SETA/8,17P 

For lines 8 through 17, substitute SETA for SETB. 

Print lines 8 through 17 without line numbers. 


18 1 ,$M(SMMPL3)X 

Move line 1 through last line of the current buffer into auxiliary 
buffer SMMPL3 and erase buffer (0). 

Display buffer status. 


19 R A SYSMAC>SMP04 

Read the 34-line file (example 4) into the current buffer (0). 

20 X29A 

Display buffer status, 34 lines are currently in buffer (0). 


Append, after line 29, four lines of text. Text for line 30. 

21 Text for line 31. 

22 Text for line 32. 

23 text!F 

Last line of text (line 33). 

Terminate input mode and enter edit mode. 

24 /SS..LE/L/$$/LD/ A A /LD 

Search the current buffer for the first occurrence of the 
expression SS..LE, where .. are any two characters. 

List the line and its line number. 


ENDM 

14 


0 ->( 0 ) ... 

18 (SMMPL1) 
36(SMMPL2) 


L4 SETA ... 


LD SETA ... 


0 ->( 0 ) ... 

18 (SMMPL1) 
36 (SMMPL2) 
45 (SMMPL3) 


34-X0) ... 

18 (SMMPL1) 


45 (SMMPL3) 


28?G5 ?PZ ?SS(?LE... 
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Line 

No. Editor Directive Description 


Terminal 

Typeout 


Locate a line that ends with $ as the last character. The first 
dollar sign is escaped using a nonprinting C,i.e.,!C$$. The 
second dollar sign retains its special meaning, and indicates: 
locate the last character in a line ending in dollar sign. 

List the line and its number; then delete the line. 10DELT$ DC...D t $ > 

Locate a line beginning with A . The second circumflex is 
escaped by using the nonprinting !C,i.e., A !C A . 

List, then delete the line and its line number. 28 A DEL DC 

'DELETE ... 

25 1,$K(SMMPL4) 

Copy the current buffer contents from first through last line into 
auxiliary buffer SMMPL4. 

26 XI,$D 

Display the status of the buffers. 36->MOD(0)... 

18 ... 


36 (SMMPL4) 

Delete first through last line of current buffer. 

27 B(SMMPLl) 

The auxiliary buffer, SMMPL1, is made the current buffer prior 
to writing. 

28 W A SYSMAC >SMMPL1 

Write the current buffer contents as a file whose pathname is 
A SYSMAC >SMMPL1. 

29 1,$DX 

Delete the first through last line of the current buffer. 

Display the buffer status. The pointer points to current buffer, 

SMMPL1. 0(0) ... 

0->(SMMPLl) ... 


36(SMMPL4) 

30 B(SMMPL2) 

The auxiliary buffer, SMMPL2, is made the current buffer prior 
to writing. 

31 W A SYSMAC >SMMPL2 

Write the current buffer contents as a file whose pathname is 
A SYSMAC>SMMPL2. 

32 1,$D 

Delete the first through last line of the current buffer, 

33 B(SMMPL3) 

The auxiliary buffer, SMMPL3, is made the current buffer prior 
to writing. 
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Line 

No. Editor Directive Description 


Terminal 

Typeout 


34 W A SYSMAC >SMMPL3 

Write the current buffer contents as a file whose pathname is 
A SYSMAC >SMMPL3. 

35 1,$D 

Delete the first through last line of the current buffer. 

36 B(SMMPL4) 

The auxiliary buffer, SMMPL4, is made the current buffer prior 
to writing. 

37 W A SYSMAC>SMMPL4. 

Write the current buffer contents as a file whose pathname is 
A SYSMAC >SMMPL4. 

38 1,$DX 

Delete the first through last line of the current buffer. 
Display the status of the buffers. SMMPL4 is the current buffer. 
All the buffers have been cleared. 


39 R SMMPL1 

Read the file SMMPL1 into the current buffer, SMMPL4. 

40 /INSERT/LD//ADD L7/LD 

Locate the first line containing the expression, INSERT, list it 
and its line number, and then delete it. 

Starting at the current line, locate the first line containing the 
expression, ADD L7, list it and its line number, and then delete 
it. 

41 15R SMMPL2 

Read the file, SMMPL2, into the current buffer after line 15 of 
the buffer. Two files are being merged. 

42 X52LD 

Display the status of the buffers. Current buffer, SMMPL4, now 
has 52 lines. 


List line 52 then delete it. 

43 E FO >SPD>LPT00 

The Execute directive allows you to execute the ECL command 
FO to change the output file from the operator’s terminal to the 
line printer. 

44 1,$LW SMPMAC.P 

List the first through last line of current buffer on the line 
printer (Figure 5-3). Write the current buffer as a file whose 
pathname is SMPMAC.P. 


0 ( 0 ) ... 

0 (SMMPL1) .. 

0-XSMMPL4) ... 

3* INSERT LN ... 
11* ADDL7SETA... 


0 ( 0 ) ... 

52- >MOD(SMMPL4)... 
52* USED EDIT... 
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Line 

No. Editor Directive Description 


Terminal 

Typeout 


45 1,$D 

Delete the first through last line of the current buffer. 

46 R SMMPL3 

Read the file, SMMPL3, into the current buffer, SMMPL4. 

47 X/L4/;/LE/S/SETB/SETA/ 

Display the status of the buffers. 


Locate the first line containing the expression, L4. Starting 
with the line containing L4 through the line containing the 
expression LE, substitute SETA for all occurrences of SETB. 

48 1,$LW A Z00B02>LDD>MACRO>EXEC_LIB>SAMPLl 
List the first through last line of the current buffer on the line 
printer (Figure 5-4). 

Write the current buffer as a library routine file whose path¬ 
name is A Z00B02>LDD>MACRO>EXEC_O%-r>SAMPLl. 

49 1,$D 

Delete the first through last line of the current buffer. 

50 R SMMPL4 

Read the file, SMMPL4, into the current buffer. 

51 /DLET/D 

Locate and delete the line containing the expression DLET. 

52 Q 

Quit. The quit is deferred since a buffer has been modified and 
has not been written to a file. You have one more chance to write 
the contents of the current buffer as a file. 

53 1,$LW A Z00B02 >LDD >MACRO >EXEC__LIB >SAMPL2 

List the first through last line of the current buffer on the line 
printer (Figure 5-5). 

Write the current buffer contents as a library routine file whose 
pathname is A Z00B02>LDD>MACRO>EXEC_LIB>SAMPL2. 

54 X 

Display buffer status. Status is always displayed on the 
operator’s terminal even though the output file is the printer. 


55 E FO 

The Execute directive allows you to execute the ECL comand 
FO to change the output file from the line printer back to the 
operator’s terminal. 

56 Q 

Quit. Exit from the Editor. 


0 (0) ... 

45->(SMMPL4) ... 


MODIFIED BUFFERS 
EXIST ... 

0 ( 0 ) ... 

35->(SMMPL4) 
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1 


TITLE 

SMPMAC, '3/1/77 ' EDITUR/MACRO EXAMPLE 

2 


LIttM 

'EXEC"LIB',SAMPL1, SAMPL2 

3 

SMPLM 

MAC 

P1=0,P2=2,P3='SAMPLE',P4 = 1 PROGRAM',PS=ZERO,P6=( 

a 

P7=),P8= 

TW0,P9=SC0MM,PA=A,PB=b»PC=T2,PD=SAMPLE,PE=PROG2 

5 

★ SET LOCAL VALUES 

WITHIN MACRO ROUTINE ★ 

6 

LE 

SETA 

' PROG2.START2C,)NAm£' 

7 

L 4 

SETA 

EOU 

8 

L5 

SETA 

RE S V 

9 

L6 

SETA 

TEXT 

10 

L7 

SETA 

X DEF 

11 

L8 

SETA 

XLOC 

12 

L9 

SETA 

XVAL 

13 

LA 

SETA 

CZ'01 '] 

19 

LB 

SETA 

COMM 

15 

LZ 

SETA 

S 1 

18 

* 



17 

* THESE 

UNPROTECTED 

COMMENT LINES WILL BE DROPPED 

18 

★ WHEN MACkU PREPKOCESSED. 

19 

* 



20 

?G4 

?L4 

?G1 (G1 INITIAL VALUE=S) 

21 


VL5 

?IXC?LE,?PE)?GB?P1 

22 

?GS 

VL6 

?P3?VL(3B)?P4?LZ?LA 

23 


VL7 

?G4 

2a 


?L7 

?Pb?PS?Gb?AL(?PC)?P7 

25 


?L8 

?SS(?P4,7,1) 

28 


?L9 

?vpun 

27 

?G6 

VLB 

?G7 

28 

VGA 

?L4 

VP9+VG3 

29 


E N U M 


30 

G 3 

SETn 

1 

41 

G4 

SETA 

'ZERO' (APOSTROPHE'S DROPPED WHEN SUBSTI.) 

32 

G 5 

SETA 

’NAME ’ 

33 

G 6 

SETA 

’$COMM ' 

ia 

6 7 

SETN 

100 

35 

GA 

SETA 

'C0M1 ' 

36 

GB 

SETA 

1 r 1 

37 

★ 



38 

* *** THE 

FOLLOWING 

PORTION OF CODE IS ADDED FROM "SMPLM" ***★ 

39 

* 



ao 


Smplm , 

(CALL IN-LINE MACRO ROUTINE) 

41 

* 



42 

★ *★* THE 

FOLLOWING 

PORTION OF CODE IS ADDED FROM "SAMPL1" **** 

43 

* 



44 

C ALL 1 

SAMPL1 

i,, , iso,; 

45 

,r ST ART # 

SC 


46 

* 



47 

**★★ THE 

FOLLOWING 

PORTION OF CODE IS ADDED FROM " SAMPL2 " **** 

48 

* 



49 

CALL2 

SAMPL2 


50 

9 9 MMM 

9 9 9 9 9 9 9 9 9 9 9 

9 9 9 9 9 9 LINK 

51 


END 

SMPMAC,START 


Figure 5-3. Sample of Unexpanded Assembly Language Program with Macro Calls 
and Statements (SMPMAC.P) 
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l 

3AMPL1 

MAC 

P 1 = 0,P2s2,P3='SAMPLE',P4='PROGRAM',P5sZERO,Pfe=(,P7 = )> 

2 

P8«T*0 

,P9«JC0MM,PA= 

A,PB=B,PD=SAMPLE,PEapROGRAM 

3 

* 



4 

* 



5 

* SET 

LOCAL VALUES 

WITHIN MACRO ROUTINE * 

6 

* 



7 

* 



6 

14 

SETA 

ORG 

9 

L5 

SETA 

DC 

10 

L6 

SETA 

LDR 

11 

L7 

SETA 

STR 

12 

18 

SETA 

CALL 

13 

L9 

SETA 

LB 

14 

LA 

SETA 

8BT 

15 

L8 

SETA 

SLD 

16 

LC 

SETA 

» s 1 

17 

LD 

SETA 

tZ'32'l 

18 

L£ 

SETA 

'PR0G2.START2 t, 1NAME' 

19 

* 



20 

* 



21 

* SET 

GLOBAL VALUES 

WITHIN MACRO ROUTINE * 

22 

★ 



23 

* 



24 

GH 

SETA 

'ORG INTO COMMON' 

25 

GG 

SETA 

'ORG INTO INTERNAL LOC' 

26 

GC 

SETA 

'EXTERN VAL REFERENCE' 

27 

GO 

SETA 

'COMMON REFERENCE' 

28 

GE 

SETA 

'EXTERNAL LOCATION REFERENCE' 

29 

GF 

SETA 

'FORWARDS TEMP LABEL REFERENCE' 

30 

* 



31 

* UNPROTECTED LINES 

OMITTED WHEN PRE-PROCESSED 

32 

* 



33 


114 

?P9 ?GH 

34 


?L5 

?VR(?P3,?PD)?GB?SR(?P4,?PE) 

35 


?L4 

?G4?P7?P8 ?GG 


?PC 

?L6 

SR 1,?LC?P8 ?GC 

37 


?L7 

SR1,<?GA ?GO 

38 

C*3 



39 

?PD 

?L6 

SR 1 * <?PA ?GE 

40 

C*J 



41 


?L8 

PROG2.?SSC?LE,7,6)?GBNAME 

42 


?L9 

?G4?P7?P1?G0?LC?VL(13) 

43 


?LA 

>?P7SF ?GF 

44 


?L8 

$Sl?GB?LCZ'?CH(l,-2)?CH(2,-B)?CH(3,-2)?CHC4,-2) ' 

45 

ENDCL1 

ENDM 



Figure 5-4. Sample of Unexpanded Macro Routine (SAMPL1) Contained 
in EXEC_LIB Directory 
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1 

SAMPL2 

MAC 

P1=0,P2=2,P3='SAMPLE' ,P<t='PROGRAM ,P5 =ZEkO,P6=(,P7=); 

2 

P8 = T*K) 

,P9=$COMM,PAs 

A,PB = 6 

3 

★ SET 

LOCAL VALUES 

WITHIN MACRO ROUTINE * 

a 

L4 

SETA 

>=[*'1300') 

5 

LA 

SETA 

1 OLD 

6 

LD 

SETA 

SRI 

7 

LE 

SETA 

'PW0G2.START [,) .NAME ' 

a 

LG 

SETA 

SQR 

9 

LC 

SET* 

-327b8 

10 

LP 

SETN 

32787 

11 

L9 

SETN 

0 

12 

LI 

SETA 

BE 2 

13 

LY 

St T A 

HLT 

14 

LZ 

SETA 

S' 

15 

* SET 

GLOBAL VALUES 

WITHIN » v >ACKu ROUTINE * 

lb 

G7 

SETN 

-32768 

17 

G2 

SETA 

'BACK A ARDS TEMP LABEL REFERENCE ' 

18 

G5 

SETA 

CTRL 

19 

* 



20 

★ UNPROTECTED LINES 

OMITTED ir.HfciV PRE-PROCESSED 

21 

* 



22 

?pi 

?L A 

?PS?LZ?L4,=?LD 

23 

?P1 

?L A 

?P5?LZ?LA, = ?Ll) 

24 


?LG 

?L0#?VGC3) 

25 


?L I 

?LD,-SC ?G2 

2b 


?LY 


27 


?G5 

?PZ VSS (? L t >1» b ) 

28 


IFE 

?G7 i ?LCiIFE i 

29 


FAIL 


30 

ENOIT 

IFNL 

?P2f?LC>* 

31 

IFE1 

NULL 


32 


IFNE 

?G7r?LP»GTEf'iO 

33 


FAIL 


34 

GTEND 

GOTO 

ENUIT 

35 

EN0CL2 ENOM 



Figure 5-5. Sample of Unexpanded Macro Routine (SAMPL2) Contained 
in EXEC_LIB Directory 


Example 1: 

File SMPM01 before Editing 


1 TITLE SMPMACf 1 3/1 / 7 7 ' E DI TOR/MACRu EXAMPLE 

2 * INSEPT LN 2 L IB M STATEMiNiT BEFORE THIS L N • • T H F N OF.L THIS LN 

3 SMPLM MAC PlsO#P2s2,P3=' SAMPLE 1 ,P4 ='PROGRAM ‘ , PbsZERO, P6 =C ? 

a P7 = ) f P8 = T'a0,P9 = SC0mm,PA=A , PH = B , PC = T2 , Pt> = S AMPLE , PE =PR0G2 


5 

★ SET 

LuCAL VALUES wITHIN MACRO ROUTINE ★ 





b 

LE 

USE CHANGE FUNCTION TO ADD SETA 

VALUE 

FOR 

THIS 

LN 

7 

L4 

USE CHANGE FUNCTION TO ADD SETA 

VALUE 

FOR 

THIS 

LN 

6 

Lb 

USE CHANGE FUNCTION TO ADD SETA 

VALUE 

FOR 

THIS 

LN 

9 

L6 

USE CHANGE FUNCTION TO ADD SETA 

VALUE 

FOR 

THIS 

LN 

10 

★ ADD 

L7 SETA VALUE ^-/CHANGE FUNCTION .. 

THtN DELT 

THIS 1 

LN 

11 

L8 

SETA XLDC 





12 

L9 

SETA X V A L 





13 

LA 

SETA CZ'Ol'J 





14 

LB 

SETA COMM 





15 

LZ 

SETA 1 2 3 





lb 

★ USED 

EOIT READ FUNCT TO ADO "SMPM02" PORTION TC 

i FILE^ 
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Example 2: 

File SMPM02 before Editing 


1 * 

2 * THESE UiMHWOTE C TED COMMENT LINES *ILL t'E ORUPPE l) 

3 * vAjH£i\i MACRO PKEPROCtSSED. 
a ★ 


5 

Yb4 


*L4 

?G1 (til If'ITIAL VALUt=S) 


6 



*LS 

?lX(#LE,VPt')?Gf?Pl 



7 

?Gb 


«L6 

?P3?VL(3M?P4#LZ#I_A 



8 



*L7 

?Ga 



9 



#L7 

?Pb?PS?GH?AL(?PC)?P( 



10 



»LB 

?ss(?pa,7,n 



u 



4L9 

?VP(11) 



12 

^ G 6 


ALB 

?G 7 



13 

?G A 


*L4 

? P 9 -f ? G 3 



14 



EH DM 




lb 

G3 


SfcTm 

1 



16 

G4 


SETA 

1 ZERO 1 (APOSTROPHE’S 

PROPPED WHEN; 

SU8STI 

17 

Gb 


SETA 

* MAMt * 



18 

G6 


St T A 

»scomm 1 



19 

G 7 


SETim 

100 



20 

GA 


SETA 

'COM ' 



21 

G6 


SETA 

1 , 1 



22 

* 






23 

**** 

THE 

following 

PORTION GF CODE IS ADDED 

FROM "SmPLm” 

**★* 

24 

+ 






25 



SwPLF* t 

(CALL IK-LINE 

MACRO ROUTINE) 

26 

* 






27 

* * * * 

THE 

FOLLOWING 

PORTION OF CODE IS ADDED 

Fk un. "SAMPL1" 

**** 

28 

* 






29 

calli 


SAN.PL 1 

\999 150,; 



30 

,# S T ART # 

3>C 




31 

* 






32 

★ *** 

THE 

FOLLOWING 

PORTION OF COuE IS ADDED 

FRO M M S A M P L 2 H 

* + ** 

33 

* 






34 

CALL2 


SAMPL2 

SF 999999999 



35 


9 9 9 


1 9 9 9 9 9 9 LINK 



36 



END 

SMPMACrSTART 





USING THE EDITOR 


5-12 


CB22 






Example 3: 

File SMPM03 before Editing 


1 

SAMRL1 

MAC 

P1=0,P2=2,P3='SAMPLE',P4='PROGRAM»,P5=ZER0,Pb=( 

2 

P B s T W 0 

,P9=$C0MM,PAs 

A,P8=B,PD=SAmPLE,PE=PB0GRAM 

3 

* 



4 

* 



5 

Hr SET 

LOCAL VALUES 

WITHIN MACRO ROUTINE * 

6 




7 

Hr 



8 

L4 

SETS 

ORG 

9 

L5 

SETB 

DC 

10 

Lb 

SETH 

LOW 

11 

L7 

SETB 

SIR 

12 

L8 

SETB 

CALL 

13 

L9 

SETB 

LB 

14 

LA 

SETB 

BBT 

15 

LB 

SETH 

SLD 

lb 

LC 

SETH 

i = i 

17 

L0 

SETB 

CZ'32'3 

18 

LE 

SETB 

'PR0G2.START2 1,3 t\.AMfe» 

19 

* 



20 

★ 



21 

* SET 

global values 

WITHIN MACRO ROUTINE * 

22 

♦ 



23 

Hr 



24 

GH 

SETA 

»QRG INTO COMMON* 

25 

GG 

SETA 

'ORG INTO INTERNAL IOC ' 

2b 

GC 

SETA 

'EXTERN VAL REFERENCE' 

27 

GO 

SETA 

'COMMON REFERENCE' 

28 

GE 

SETA 

' EXTERNAL LOCATION REFERENCE ' 

29 

GF 

SETA 

'FORWARDS TEMP LABEL REFERENCF' 

30 

* 



31 

* UNiPROTECTto LINES 

OMITTED ftH EN PRE-PROCESSED 

32 

★ 



33 


?L4 

?P9 ?GH 

34 


?L5 

?VR(?P3,?PD)?GB?SR(?P4,?Pfe) 

35 


?L4 

?G4?P7?P6 ?GU 

3b 

?PC 

?Lb 

SRlr?LC?PH ?GC 

37 


?L7 

SRI # < ?G A ?GU 

38 

t*] 



39 

?PD 

?Lb 

SRlr<?PA ?GE 

40 

[Hr] 



41 


?L8 

PR0G2.?$$(VLE,7,6)?GHnAME 

42 


?L9 

?G4?P7?Pl?Gb'?LC?VL(133 

43 


?L A 

>?P7$F ?GF 

44 


?LB 

S$1?GB?LCZ* ?CH(l,«2)?CH(£ r -2)?CH(3,-2)?CH(«,-2) 

45 

ENDCL1 

ENDM 
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Example 4: 

File SMPM04 before Editing 


1 SAMPLE mac PlsOf P^sarPis'SAMPLt » f P < 1 = » PROG* AM • , P5=ZER0 , P6= (# P7s) ; 

2 P6sTwu»P9sSC0MM f PA sa,P6 = B 

3 ★ SET LOCAL VALLES iMTHlN MACRO ROUTINE * 


a 

L4 

SETA 


>=IZM 300 M 

5 

LA 

SETA 


I OLD 

fe 

LI) 

seta 


SRI 

7 

LE 

SETA 


'PPOG2.START 1,3 NAhE ' 

8 

LG 

seta 


SOR 

9 

LC 

SETim 


-32768 

10 

l)E L T 3> 

DC 1 

1 DELETE LINE ENDING In S'S 

1 1 

LP 

SETi'v 


32767 

12 

LO 

S E T t\ 


0 

13 

LI 

SETA 


BE Z 

la 

LY 

SETA 


HLT 

15 

LI 

SETA 


1 , 1 

16 

* SET 

GLOBAL VALUES 

WITHIN MACRO ROliTIijfc * 

17 

G 7 

SETN 


-32768 

18 

G2 

SETA 


'BACKWARDS TEMP LAwEL Rfc.EE 

19 

G5 

SETA 


CTRL 

20 

★ 




21 

★ UNPROTECTED 1 

-IMES 

OMITTED -mHEN PRE-PROCESSED 

22 

★ 




23 

?PI 

VLA 


?P5?LZ?L4,=?L0 

2^4 

?P1 

?L A 


?P5?LZ?L«f=V lD 

25 


?LG 


?LD, ?VG(3) 

26 


?L I 


? 1, D r • SC ?G2 

27 


?L Y 



28 


?G5 


?PZ ?5S(?LEflfb) 

29 

*QEL 

DC 

'DELETE LINE dEtilDNlNG IN *' 

30 


IEoE 


?G7, ?LP,GTEfvn 

51 


FAIL 



52 

GTENO 

GOTO 


ENDIT 

33 

OLET 

DC 1 

•DELETE LINE &EFUHE QUIT' 

34 

ENOCL? 

E aiQNj 




V J 


f ^ 
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Section 6 

Using the Assembler and Macro Preprocessor 


This section illustrates the use of the assembler to construct programs containing macro calls. 
Two assembly language samples are presented. One illustrates the output of different assembly 
language program processors. The other illustrates an assembly language program that con¬ 
tains multiple tasks. Both samples provide the operator terminal session listings that contain 
the commands to invoke the system software. 

SAMPLE ASSEMBLY LANGUAGE SESSION (SMPMAC) 

Figure 6-1 contains a sample operator terminal session to preprocess, assemble with cross- 
reference, and link the assembly language program SMPMAC. It is assumed that the Honey- 
well-supplied startup has been done prior to this session. 

The typeout illustrates the following points. The working directory is changed to SYSMAC 
where the program’s files are located. The file, SMPMAC, that is processed by the Macro 
Preprocessor is in Figure 5-3. The macro routines, SAMPL1 and SAMPL2, called by the 
program are listed in Figures 5-4 and 5-5. A listing of the output file SMPMAC. A from the macro 
preprocessor is shown in Figure 6-2. 


CWD tSYSMAC 
($H)RDY: 

+ZSYS51>SYSLIB2>MACR0P TSYSMAC>SMPMAC -SZ 10 
($H)MACR0P-0100-11/17/1404 
($H)0000 ERR COUNT 
($H)RDY: 

ASSEM t$YSMAC>SMPMAC -SZ 10 -SAF -LE -XREF -C0UT >SPD>LPT00 
($H)ASSEM-0100-11/17/1346 
($H)0000 ERR COUNT 

($H)ASSEM: (020105) ID 1380 0000 0000 

($H)>SPD>LPT00 

($H)RDY: 

F0 >SPD>LPT00 
($H)RDY: 

LINKER tSYSMAC>SMPMAC -C0UT >SPD>LPT00 -SZ 10 
($H)LINKER-0100-11/23/1258 
LDEF A,X‘100* 

VDEF B,X‘2* 

LINK SMPMAC 

MAP 

QT 

($H)SAF OR SLIC PR0G2.0 NT FND 

($H)SAF OR SLIC PR0G2.0 NT FND 

($H)ROOT SMPMAC 
($H)LINK DONE 
($H)RDY: 


Figure 6-1. Sample Terminal Session (SMPMAC) 
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l 


TITLE 

SMPMAC.'3/1/77' EOITOk/MACHO EXAMPLE 

2 

* 



3 

**** the 

FOLLOWING 

PORTION OF CODE IS ADDED FROM "SMPLM" **** 

4 

★ 



5 

ZERO 

EQU 

* CGI INITIAL VALUe=$) 

6 


RES V 

2,0 

7 

NAME 

TEXT 

'SAMPLE'. 'PROGRAM', Z * 0 1' 

s 


XDEF 

ZERO 

9 


XDEF 

(TWO,2) 

10 


XLOC 

A 

11 


XV AL 

B 

12 

SCO MM 

COMM 

100 

13 

COM 1 

EuiU 

SCOMM+l 

14 

★ 



15 

★ * ★* THE 

following 

PORTION OF CODE IS ADDED FROM "SAhPLI" **** 

16 

★ 



17 


ORG 

$C0MM ORG INTO COMMON 

18 


DC 

1 #2 

19 


ORG 

ZERO* 1 50 ORG INTO INTERNAL LOC 

20 

START 

LOR 

SRI,=6 EXTERN VAL REFERENCE 

21 


STR 

SRI,<C0N 1 COMMON REFERENCE 

22 

★ 



2 i 

SC 

LOR 

$R 1 ,<A EXTERNAL LOCATION REFERENCE 

24 

* 



26 


CALL 

PR0G2.START2,OAmE 

26 


L8 

Z&R0M ,sZ'32' 

27 


BBT 

> + $F FORWARDS TEMP LABEL REFERENCE 

26 


6LD 

SSI ,=Z’ 01020304» 

29 

★ 



30 

* * * * THE 

FOLLOWING 

PORTION OF CODE IS ADDED FROM m SAMPL2 h **** 

31 

it 



32 

SF 

I OLD 

ZERO,> = Z * 13 00 f ,=$R1 

33 

SF 

I OLD 

ZERO,>sZ»1300*,s$Rl 

34 


SOR 

SR 1 , 1 

36 


8F.Z 

SRI,"SC BACKWARDS TEMP LABEL REFERENCE 

36 


HLT 


37 


CTRL 

LINK PROG2 

38 


End 

SMPMAC,START 


Figure 6-2. Macro Preprocessor Output (SMPMAC) 


Figure 6-3 illustrates a cross-reference listing produced by the Assembler. See the Program 
Preparation and Checkout manual for an explanation of cross-reference symbols. 

Figure 6-4 illustrates the Assembler listing of the assembled Macro Preprocessor output. 
Figure 6-5 illustrates the link map of the previously assembled program SMPMAC. 


USING THE ASSEMBLER 
AND MACRO PREPROCESSOR 


6-2 


CB22 





TITLE 

SMPMAC,'3/1/77' 

EDITOR/MACRO EXAMPLE 3 


S 

**** 

5 



$C 

23 

35 



SCOMM 

12 

13 17 


N 

$F 

32 



M 

$F 

33 

27 



SRI 

** ** 

20 21 23 

32 33 34 35 


SSI 

it*** 

28 



A 

10 

23 



B 

11 

20 



COM 1 

13 

21 



NAME 

7 

25 


U 

PR0G2 

**** 

25 



START 

2u 

38 


U 

STARTS 

**** 

25 


M 

TwO 

9 




ZERO 

5 

8 19 2fe 

32 33 

1 

II 

in 


IV 


11 LABELS 

25 REFERENCES 

38 RECORDS 




2 U 

flags 




1 M 

FLAGS 




2 N 

FLAGS 



Legend: 




1 

— Optional error flag: 


III — Number of the line in which the symbolic 


M - 

Designated label occurs more than 
once in the label field in the module; 
i.e., the label is multiply defined. 

name is defined in the module. Asterisks 
(****) indicate that the symbolic name was 
not defined in this module. 


U - 

Designated label is not defined;**** 

IV — Number of each line that contains a refer¬ 



is also included in the definition field. 

ence to the symbolic name. 


N - 

Designated label is not referenced in 

a The contents of the assembly program TITLE 





statement become the heading for the cross- 

II 

— Identifiers (e.g., registers) and an alphabetical 

reference listing. 


list of all labels in the assembly language source 
module. Identifiers do not have to be defined 



and are never flagged. 




Figure 6-3. Cross-Reference Listing (SMPMAC) 
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SMPMAC 

3/1/77 

6CDS6/M0T 0101 ASSEMBLER 

EDITOR/MACRO EXAMPL PAGE 0001 1901/01/01 0026859.4 

OQO'OOl 





TITLE 

SMPMAC,'3/1/77* EDITOR/MACRO EXAMPLE 

oooooa 




★ 



000003 




**** THE 

FOLLOWING PORTION OF CODE IS ADDED FROM "SMPLM" **** 

000004 




★ 



ooooos 



0000 

ZERO 

EQU 

» CGI INITIAL VALUE*!) 

000006 

0000 

0000 

0000 


RESV 

2,0 

000007 

0 002 

5341 


NAME 

TEXT 

'SAMPLE', 'PROGRAM*, Z » 01 • 


0003 

4050 






0004 

4C45 






0005 

5052 






0006 

4F47 






0007 

5241 






00 08 

4001 





0 0 0 0 0 8 





XDEF 

ZERO 



0000 





000009 





XDEF 

(TWO,?) 



0002 





000010 





XLOC 

A 

000011 





XV AL 

8 

000012 


0064 


SC0M*< 

COMM 

100 

000013 



0001 K 

COM 1 

F.QU 

SC0MM4-1 

000014 




* 



000015 




★ * * * THE 

FOLLOWING PORTION OF CODE IS ADDED FROM "SAMPL1" **** 

000016 




* 



000017 

0 0 0 U 


K 


ORG 

scomm org INTO COMMON 

0 0 0 016 

oooo 

0001 



UC 

1,2 


0 001 

0002 





0000 19 

0096 




ORG 

ZERO*150 ORG INTO INTERNAL L0C 

000020 

0096 

9870 

0 0 0 0 X 

START 

LOR 

SRI,=8 EXTERN VAL REFERENCE 

00 0021 

0096 

9F00 

0 0 01 K 


SIR 

SRI,<C0H1 COMMON REFERENCE 

000022 




* 



000023 

O 0 9 A 

9600 

0000 X 

SC 

LDK 

SR 1,<A EXTERNAL LOCATION REFERENCE 

00OO24 




* 



000025 

0 w 9C 

KBC 0 

0003 


CALL 

PROG2.ST ART 2,NAME 


0u9E 

0 36 0 

0 u 0 0 





0 0 A 0 

OF 8 0 

T 





0 O A 1 

0 0 02 





000026 

0 u A 2 

62C0 

FF5E 


LB 

ZERO-** 1 ,=Z* 32' 


0 u A 4 

32 0 0 





000027 

0 O A 5 

0500 

T 



> + J»F FORWARDS TEMP LABEL REFERENCE 

000026 

0 O A 6 

98F 0 

0102 0304 


SLD 

SSI, =7 '01020304' 

000029 




* 



000030 




* * * * The 

F 0 L L O a I im 

G PORTION OF CODE IS ADDED FROM "SAMPL2" *★** 

000031 




★ 



000032 

0 0 A 9 

8 1 C 0 

F F 56 

SF 

J0LD 

ZERU,»=Z ' 1 300' ,=$R1 


0 0 A 6 

1300 






00 AC 

0051 




i 

000033 

0 0 A 0 

8 1 C 0 

F F 52 

SF 

I0L0 

ZERO,>=Z'l300 ' ,=SR1 


0 0 A f- 

1300 






00 80 

0051 





000034 

0061 

1041 



SOR 

SRI, l 

000035 

0062 

1901 

F F fc 7 T 


6EZ 

SRI,-SC BACKWARDS TEMP label REFERENCE j 

000036 

0 0 m 4 

0000 



HIT 


000037 





CTkL 

LINK PR0G2 

000036 

0065 

0 096 



END 

SMPMAC,START 

0000 ERR COUNT 






t n 

hi 


IV V 



VI 


Legend: 






1 - 

Optional error flag(s): 



II — Record number; a 6-digit decimal represen¬ 



A - 

Operand field format error 


tation corresponding to the sequential count 



C - 

Numeric conversion error 


of the number of logical records read. 



D - 

Short displacement out of range 


Ill — Program counter; 4-digit hexadecimal repre¬ 



E - 

Illegal address expression 


sentation of the relative address of the 



F - 

Illegal forward reference 


corresponding source statement on the 



H - 

Improper header 



right-hand side of the listing. 



L - 

Label field format error 


IV — Machine code; 4-, 8-, or 12-digit hexa¬ 



M - 

Multiply-defined symbol 


decimal representation of the corresponding 



N - 

No matching left parenthesis 


assembly language instruction or Assembler 



0 - 

Illegal operation code 



control statement shown on the right-hand 



P - 

Assembler control statement error 

side of the listing. 



Q - 

Address<0 or >32K 



V — Type flag; 1-character flag (preferably a 



R — 

S - 

niegai register reierence 

Improper statement format 


nonhexadecimal digit) that specifies the 

label type of the referenced symbol: 1 



T - 

Iruncation warmnq tor string 





constant 



K — Common 



U - 

Undefined symbol 



T — Temporary 



X - 

Expression too complex 


X — External 



Z - 

Conditional assembly 

error 


P — P-relative reference to external 







or common symbol 



There 

can be uo to four error flaqs per line. 




If there are more than four 

errors, onlv the 

VI — Verbatim representation, including com¬ 



first four are listed and included in the error 

ments, of the source statement, as defined 



count; subsequent errors are 

ignored. 


in the Assembly Language manual. 


Figure 6-4. Assembler Output Listing (SMPMAC) 
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LINKER-01 00-11/23/1258 GC0S6 MOD400-S100-12/01/1413 

RU= SMPMAC LINKED ON: 1977/12/08 1420:55.9 -SAF 

SMPMAC 3/1/77 

1977/12/08 1420:12.4 ASSFMRLFR-0100-11/17/1346 GC0S6 MOD400-S100-12/01/1413 
EDITOR/MACRO FXAMPL 
SAF OR SlIC PROG?.0 NT FND 

SAF OR SLIC PROG?.0 NT FND 


★★ SMPMAC LINK MAP 1977/12/08 1420:55.9 

★★START OOFA 

★★LOW 0000 

★★HIGH 0119 

★★SCOMM 0000 

★★CURRENT 0119 

★★EXT DEES 
P 7HCOMM 0000 

P 7HREL 0000 

A 0100 R 0002 

★* ROOT 0000 

★ SMPMAC 0000 

C *COMM 0000 

7ERO 0064 TWO 0002 

*★UNDEF 

* SMPMAC 0000 

START2 0103 

********** 

ROOT SMPMAC 
********** 

HIGHFST 0Vt Y /NUM OF SYMS 0 

********** 

SAF 

********** 

ROOT SMPMAC BASF 0000 ST OOFA -..UI HTGH=0119 

********** 

★STZF OF ROOT AND STATIC OVLYS= 0119 HT REL RCD= 4 

********** 

LINK DONF 
********** 

I II III 


Legend: 

I - Indicates whether there is a protected symbol, 
multiply-defined symbol, or symbol that defines 
the labeled or unlabeled common; designated by 
P, M, and C, respectively. 

II - Module and symbol names. (Module names are 
preceded by *.) 

Ill - Base address of module, address or value of 
symbol. 


Figure 6-5. Linker Output Listing (SMPMAC) 
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SAMPLE ASSEMBLY LANGUAGE MULTITASK PROGRAM (BRDCST) 

Figure 6-6 contains a sample terminal session to compile, link, execute, and start debugging 
the assembly language, program BRDCST, on that system. A specialized system is configured 
with CLM-USER containing the following configuration directives: 


DEVICE KSROO,5,0,X’0500’,CONSOLE 
MEMPOOL S„5000 
DEVICE CDR00,26,26,X’1300’ 

MEMPOOL E,AA,14336„BB, 11264 
MEMPOOL B„8850 

SYS 60,16,SSIP,3 
DEVICE DSK01,17,17,X’480’ 

DEVICE DSK02,18,18,X’1200’ 

DEVICE DSK03,19,19,X’1280’ 

DEVICE LPT00,20,20,X’1380’,LPT00 
QUIT 

The typeout illustrates the following points. A task group, $H, is spawned. Editor is used to 
print the file containing BRDCST source text, a portion of which is shown in Example 1. The 
Macro Preprocessor, required for processing of $IORB, $CRTSK, and $RQTSK macro calls, is 
not on the directory search path and a full pathname must be used. A task group, BC, in which to 
execute BRDCST is created and BRDCST is loaded for execution. 

Example 1 is a listing of BRDCST. It is presented to illustrate how tasks are created and 
invoked in an assembly language multitask program. 
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SG $H H.L.A 38 >SPD>CONSOLE -OUT >SPD>CONSOLE -POOL AA -WD "ZOOBOO 
($S)RDY: 

C :$H: 

RDN 

($H)GROUP READY 

($S)GROUP $H DID NOT ACCEPT INPUT 
RDN 

($H)RDY: 

CWD "ETSCOM>MAN_EX 
($H)RDY: 

FO >SPD>LPTOO 
ED 

($H)EDIT rrrr-mm/dd/hhmm 
R BRDCST.P 
1,$P 
Q 

FO >SPD>CONSOLE 
($H)RDY: 

"Zrrr02>SYSLIB2>MACR0P BRDCST -SZ 20 -IC 
($H)MACROP rrrr-mm/dd/hhmm 
($H)0000 ERR COUNT 
($H)RDY: 

ASSEM BRDCST -SIZE 1 -COUT >SPD>LPT00 
($H)ASSEM rrrr-mm/dd/hhmm 
($H)0000 ERR COUNT 
($H)RDY: 

LINKER BRDCST -C >SPD>LPTOO -S 2 

($H)LINKER rrrr BU=BRDCST LINKED ON: yyyy/mm/dd nnmm:ss„t 

IN "ETSCOM>MAN_EX 

LN BRDCST 

START BRDCST 

MP 

QT 

(SH)ROOT >BRDCST 
($H)LINK DONE 
($H)RDY: 

c • $s * 

CG BC 40 -LRN 30 -POOL BB -EFN A ETSCOM>MAN__EX>BRDCST 
($S)RDY: 

EGR BC B.E.N >SPD>CONSOLE -WD "ETSCOM -OUT >SPD>CONSOLE 
($S)RDY: 


Figure 6-6. Sample Terminal Session (BRDCST) 


Example 1: 

Partial Program Listing of BRDCST 


TITLE BRDCST 

LIBM >LDD>MACRO>EXEC_LIB' 

THIS TEST PROGRAM IS A 
MEDIA TRANSCRIPTION TEST. 

IT CAN EXECUTE AS AN 
ON-LINE OR BATCH 
DRIVER TEST...o.o 


• 


l 

DEVTBL RESV 

0 


DC 

<CRDBLK 

LRN 26 

DC 

<TTYBLK 

LRN 13 

DC 

<DSKBLI 

LRN 17 

DC 

<PRTBLK 

LRN 20 


POINTERS TO DEVICE I/O 
REQUEST BLOCKS 
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DC 

<DSKBLO LRN 

18 



* 

DC 

DC 

DC 

<TTYOUT LRN 
<ASRINP LRN 
<ASROUT LRN 

12 

10 

11 


POINTERS TO DEVICE I/O 

REQUEST BLOCKS 

CRDBLK 

★ 

$IORB 26.WAIT,,BUFFER,,80 




TTYBLK 

$IORB 13,WAIT,.BUFFER,,80 




DSKBLI 

* 

$IORB 

17,WAIT,,BUFFER,,80 


1 

v I/O REQUEST BLOCK DEFINITIONS 

USING $IORB MACRO CALLS 

DSKBLO 

* 

$IORB 18,WAIT,,BUFFER,,80 


I 


BUFFER 

RESV 

80 


/ 

\ 



RES V 

80 





RESV 

80 




TILRN 

DC 

26 



! BUFFER, LRN AND LEVEL 

TOILRN 

DC 

27 



DEFINITIONS 

TILVL 

DC 

1 


I 


TOILVL 

DC 

2 


! 

/ 



V. J 


* 

* 

TASK01 

★ 

★ 

★ 

TASK02 

* 


TASK 1 (INPUT) REQUEST BLOCK LRN 26 
$TRB 26,WAIT,,INSTRT 

TASK 2 (OUTPUT) REQUEST BLOCK LRN 27 
$TRB 27,WAIT,,OUTSTR 


TASK REQUEST BLOCK 
DEFINITIONS USING 
$TRB MACRO CALLS 


* SET USER BIT TO INDICATE DISK 

BRDCST LDR $R2,=Z'0021' 

LDR $R1,<DSKBLI+$AF 

STH $R2,=$R1 

STR $R1,<DSKBLI+$AF 


PROGRAM ENTRY POINT AND 
INITIALIZATION CODE 


CREATE INPUT, OUTPUT TASKS 
$CRTSK TILRN,TILVL,INSTRT 
$CRTSK T01LRN,T01LVL,0UTSTR 


TASK CREATION USING 
$CRTSK MACRO CALLS 


★ 

* 

★ 

INPUTR 

★ 

* 

* 

* 

★ 


INPUT TASK REQUEST 

$RQTSK TASKOl 

OUTPUT TASK REQUEST 
$RQTSK TASK02 


TASK EXECUTION CODE 


ENTRY OF TASK REQUESTS 
USING $RQTSK MACRO CALLS 


* 


XDEFS AND XLOCS 

XDEF BRDCST 
END BRDCST 


XDEFS AND XLOCS FOR 
LINKER PROCESSING 
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Section 7 

Using the COBOL Compiler 


This section illustrates the use of the COBOL compiler to construct programs written in the 
COBOL language. It shows how to load a source program from a card deck into a mass storage 
COBOL source file and how to subsequently invoke the compiler to process the source program 
from the mass storage file. Two samples are presented; one shows the procedure for running an 
application, and the other is the ouput listing from an actual compilation and link. 

SAMPLE CARD-TO-DISK-FILE PROGRAM (CARDIN) 

Example 1 is a sample COBOL source program that places data read from cards onto a disk 
file. The following paragraphs illustrate a procedure for creating application files, loading 
source, compiling, linking, and executing. System startup has created the application task 
group $H. After startup, the current working directory is A Zrrr01>SYSLIBl. The following 
summarizes the contents of volumes used in commands: 

Volume Device Unit Contents 

ZrrrOO DSKOO Bootstrap, Monitor, Linker 

ZrrrOl DSK01 SYSLIB1, SYSLIB2 

Zrrr04 DSK02 COBOL Compiler 

VOL03 DSK03 Application Files 

Example 1: 

Program Listing of CARDIN 

IDENTIFICATION DIVISION. 

PROGRAM-ID. CARDIN. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT CARD ASSIGN TO 0 A-CARD-RE ADER. 

SELECT MASTER ASSIGN TO OC-MSD. 

DATA DIVISION. 

FILE SECTION. 

FD CARD LABEL RECORDS OMITTED. 

01 CARD-REC PIC X(80). 

FD MASTER LABEL RECORDS OMITTED. 

01 MASTER-REC PIC X(80). 

PROCEDURE DIVISION. 

CARDIN. 

OPEN INPUT CARD. 

OPEN OUTPUT MASTER. 

LOOP. 

READ CARD RECORD AT END GO TO EOF. 

MOVE CARD-REC TO MASTER-REC. 

WRITE MASTER-REC. 

GO TO LOOP. 

EOF. 

CLOSE CARD. 

CLOSE MASTER. 

STOP RUN. 

END COBOL 


000010 
000020 
000030 
000040 
000050 
000060 
000070 
000080 
000090 
000100 
000110 
000113 
000116 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
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VOLUME AND FILE CREATION 


ACA 

RDN 

:$H: 


CV 

>SPD>DSK03 -FT VOL03 

Format volume VOL03 

CD 

A VOL03 >SOURCE 

Create directories for 

CD 

A VOL03>OBJECT 

source, object and user files 

CD 

A VOL03>FILES 


CF 

A VOL03>FILES>OLD_MASTER -N_REL -RSZ 128 

Create user file 

FO 

>SPD>LPT00 


LS 

-PN A VOL03 

List contents of created 

LS 

-PN A VOL03 >OB JECT 

directories 

LS 

FO 

-PN A VOL03>FILES 



SOURCE LOADING 

The following illustrates loading a source deck using the CP command. Place the source decks 
for CARDIN in the card reader in the following sequence: 

CARDIN source deck 
EOF (11-5-8-9) card 

Enter the following command: 

CP >SPD>CDROO aVOL03>SOURCE>CARDIN.C 

COMPILING WITH COBOL 

In the following ECL commands, the working directory is A VOL03>OBJECT. The search 
path for bound units (executable programs) is current working directory, LIB1, then LIB2, 
where their pathname is initially A Zrrr01>SYSLIBl. The COBOL Compiler is not in any 
directories in the search path; its full pathname must be given. However, the command 

COBOL <SOURCE>CARDIN... 

can be used if you change the pathname for the directory LIB2 by issuing an operator command 
to the system task group using: 

A$SACSD -LIB2 A Zrrr04 
(where A is exactly one space) 


A VOL03>OBJECT will contain temporary work files required for the compiler and the 
created object files used by the Linker. The compiler argument LD will list source, data map, and 
errors; LO will, in addition, list the object text. 

To compile CARDIN enter the following: 

CWD A VOL03>OBJECT 

COBOL <SOURCE>CARDIN -LO -COUT >SPD>LPT00 

UNKING 

The working directory is still A VOL03>OBJECT. The Linker LIB directive directs the 
Linker to search the secondary directory for COBOL run-time routines (ZCRT) required for 
linking . To link, enter the following commands: 

LINKER CARDIN -COUT >SPD>LPT00 -SIZE 4 
LIB A Zrrr04>ZCRT 
LINK CARDIN 
MAP;QT 
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EXECUTING 

The internal file names OA and OC translate to logical file numbers 01 and 03, respectively, 
and must be associated with the pathnames or the physical devices through a GET or ASSOC 
command. To execute the program, enter CARDIN. 

Enter the following commands: 

GET 01 >SPD>CDR00 

GET 03 A VOL03>FILES>OLD_MASTER 

CARDIN 

SAMPLE COBOL TERMINAL SESSION (AC8111) 

Figure 7-1 illustrates an operator terminal session in which a system is configured, and the 
COBOL program AC8111 is compiled, linked, and executed on that system. The Entry Level 
COBOL compiler is specified in this session. To secify the Intermediate COBOL compiler, 
change the COBOL command and the LINKER LIB directive as follows. 

COBOLI AC8111 -LO -COUT >SPD>LPT00 
LIB A ZSYS51>ZCIRT;LINK AC8111;MAP;QT 

The LINKER LIB directive directs the Linker to search the secondary directory for COBOL 
run-time routines required for linking. To execute the program, enter AC8111. 


RDN 

($H)RDY: 

CWD +STC0B1>S0URCE>ACC208 
($H)RDY: 

COBOL AC8111 -LO -COUT >SPD>LPT00 
($H)COBOL 0200 11/22/1511 
($H) 0000 ERRORS 
($H)END COMPILATION 
($H)RDY: 

LINKER AC8111 -COUT >SPD>LPT00 -SZ 4 

($H)LINKER-0100-11/23/1258 

LIB +ZSYS51>ZCRT;LINK AC8111;MAP;QT 

($H)R00T AC8111 

($H)LINK DONE 

($H)RDY: 

AC8111 

($H)Q208NUA011001 
($H)Q208NUA011001 1234 

($H) P P P P 

($H)RDY: 


Figure 7-1. Sample Terminal Session (AC8111) 


Figure 7-2 is a listing of the program AC8111, its compiled object text, and the output from the 
Linker. The program was compiled using the entry-level compiler. 
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SOURCE 

PROGRAM 



1 

IDENTIFICATION DTVTST0N. 


2 

^PROGRAM Q208A0U01.COBOL FROM 0208 ACC . ARCHIVE . 

3 

PROGRAM-ID. 

A C 8 1 1 l. 


a 

ENVIRONMENT 

division. 


5 

configuration SECTION. 


6 

SOURCE-COMPUTER. LFVFL-<>. 


7 

OBJECT-COMPUTER, LEVEL-6 program 

COLLATING SFQUENCF IS ASCTI. 

8 

OATA DTVTSI0N. 


9 

working-storage section. 


10 

oi QOSPLVREC. 


1 1 

05 OOSPLYFIV. 


12 

1 0 

FILLER PIC X(13) 

VA-L UE "i^(mNUA4-14JLaj" 

1 3 

10 

QTCASE PIC XX 

VALUE SPACES. 

i a 

1 0 

FILLER PIC XX 

VALUE SPACES. 

is 

1 0 

qstatus pic xx 

VALUE SPACES. 

16 

to 

FILLER PIC XX 

VALUE SPACES. 

1 7 

05 ODSPLYV8L. 


18 

1 0 

OACTRESLT PIC X(!2) 

VALUE SPACES^ 

19 

1 0 

FILLER PIC XX 

VALUE SPACES. 

20 

10 

QEXPRESLT PIC X(12) 

VAL0E SPACES. 

21 

1 0 

FILLFR PTC XX 

VALUE spaces. 

22 

01 SUMMARYS. 


23 

05 SUM 

-LINE PIC X(7) 

VALUE "1 234". 

24 

05 RESULTS. 


25 

1 0 

TEST 1R PIC XX. 


26 

10 

TEST2R PIC XX. 


27 

t 0 

TEST3R PIC XX. 


28 

1 0 

TEST4R PIC XX. 


29 

* * * TFST GO TO—FORWARD AND BACK * * * 

10 

PROCEDURE DIVISION. 


“51 

anfamg. 



32 

DISPLAY 

QDSPLYFIX. 


33 

GO 

TO PARA-3. 


34 

WB A 1 . 



35 

MOVE 

M GO TO PARA-3" TO 

QEXPRESLT. 

36 

MOVE 

"FELL THRU" TO 

qaotreslt^ 

37 

MOVE 

"01" TO QTCASE. 


38 

MOVE 

M F" TO TFST1R. 


39 

DISPLAY 

QDSPLYREC. 


40 

PARA-1. 



41 

MOVE 

"P" TO TFST3R. 


42 

GO 

TO EOJ1. 


43 

WBA2. 



44 

MOVE 

"GO TO F0J1" TO QEXPRESLT. 

45 

MOVE 

"FELL THRU" TO OACTRESLT. 

46 

MOVE 

"04" TO QTCASF. 


47 

MOVE 

"F" TO TEST4R. 


48 

DISPLAY 

QDSPLYREC. 


49 

PARA-2. 



50 

MOVE 

"P" TO TFST2R. 


51 

GO 

TO PARA-1. 


52 

WB A 3 . 



53 

MOVE 

"GO TO PARA-1" TO QEXPRESLT. 

54 

MOVE 

"FELL THRU" TO QA.CJfiE.SLI. 

55 

MOVE 

"03" TO QTCASF. 


56 

MOVE 

"F" TO TFST3P. 


57 

DISPLAY 

QDSPLYREC. 


58 

PARA-3. 



59 

MOVE 

"P" TO TEST 1P. 


60 

GO 

TO PARA-2. 


61 

WBA4-. 



62 

MOVE " 

GO TO PARA-?" TO QEXPRESLT. 

63 

MOVE " 

FELL THRU" TO QACTRFSL T. 


Figure 7 - 2 . Sample Listings for AC8111 
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44 

MOVE "02" TO 

QTCA5E- 

65 

MOVE "F" TO 

TEST2R. 

66 

DISPLAY ODSPLYPEC. 

47 

FOJ1 . 


68 

MOVE "P M TO 

TEST OR. 

69 

MOVE SPACE S 

TO QTCASF. 

70 

MOVE SPACFS 

TO QSTATUS. 

71 

DISPLAY DDSPLYFIX SUM-LINE. 

72 

MOVE SPACFS 

TO QDSPLYFIX. 

73 

DISPLAY QDSPLYFIX RFSULTS. 

7a 

STOP RUN. 


75 

FND COBOL. 



DATA ALLOCATION MAP 

->-L-F-VF-L-NQ.-NAM£--LHAO-AJ-EL L C- I U B E. 


WORKING-STORAGE SECTION 

-04- QOSPLVREC 

OS qdsplyfix 
10 FILLER 

- 14 -QXGASF-- 

10 FILLER 
10 QSTATUS 

- 1_0-F4L4XR 

OS QDSPLYVBl 
10 QACTRESLT 

-1_0-F I L L E R — 

10 QEXPRFSL T 
10 FILLER 

-04-SUWAARXS 

OS SUM-LINE 
OS RFSULTS 

-1-0-T-F S T44*- -. 

10 TFSTaP 
10 TEST3R 

- TEST4R 

k0 DIAGNOSTICS 



_ (X4041-X ( O AOQiiP L l_ 

0000 X(000021) l 

0000 X(000013) l 

__04146-M- XX 000 0 024—1- 

0007 H X C000002) I 

0008 H Xf000002) I 

_ 4449-H xtoaoo4xax—I .- - - 

000 A H X ( 000028) f 

0 0 0 A H xr000012) l 

_ 4X414-0-H-—XX40Q0024 V . _ 

0011 H XfOOOOl?) / (DATA 

0017 H X(000002) I 

.- 00-19— _X(OOOOIS) l 

0 019 XC 000007) 1 

001C H XC000008) I 

- - - 4X0 1C- H xc o ao o o 2-X -| - 

0 01D H X( 000002) | 

0 01E H XfOOOOO?) I 

004F._ H—X C 000 0 024 / 


ALLOCATION MAP) 




1 C (PICTURE) 



(mai F-unpn tM nt pathd• 

DESIGNATED BY H) 

/ctadttmp nnnnrec nr nn 


(DATA NAME) 

(GROUPAND ELEMENTARYlfEM 
LEVEL NUMBERS) 


f€R0UPtEVa 


Figure 7-2 (cont). Sample Listings for AC8111 
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OBJECT CODE 


STATEMENT NUMBER 31 
0021 0030 DC 

0030 OBCO FFC6 LAB 

003B OS70 0000 LOR 


003F 0380 0000 

STATEMENT NUMBER 

00 4 1 . B3C8 FFF 5— 

I STATEMENT NUMBER 


LNJ $BS,<ZCRTY1 
33 


002? 

0043 

DC 

STATE 

ME-NT- NUMJ 

-T5 

0043 

0F87 

8 

0044 

474F 

DC 

0445- 

-2054-_ 

DC 

0048 

4F20 

DC 

0047 

5041 

DC 

-004ft - 

S24t 

—DC. 


(PARTIAL OBJECT LISTING) 


-(SUBROUTINE CALL) 
-(INSTRUCTION MNEMONIC) 
-(INSTRUCTION) 

-(LOCATION OF INSTRUCTION) 


LINKFR-0100-1 1/23/12S8 GCDS8 M0D400-S100-11/29/0620 

RU= AC811t LINKER ON: 1001 /01 /01 0002:04.1 -SAF 

ACR111 01/01/01 

COBOL RFV. 0200 DATF 01/01/01 TTMF 0000 . 

7CRTYU 770208 

HRS ASSEMBLER 2.49 08/02/77 1340.3 EOT THU 

(C) COPYRIGHT 1078 BY HONFYWEL.L INFORMATION SYSTEMS TNC 

7CST0P 770208 

HRS ASSEMBLER 2.49 06/02/77 1338.9 EOT THU 

(C) COPYRIGHT 1978 RY HONFYWELL INFORMATION SYSTFMS INC 

7CPTFR 770208 

HRS ASSEMBLER 2.49 06/02/77 1934.9 EOT THU 

(C) COPYRTGHT 1978 RY HONFYWELL INFORMATION SYSTEMS INC 


★ ★ ACR111 

★ * S T A R T 0033 

★ ★LOW 0000 

★★HIGH 03R1 

★ ★CIJRRFNT 03RI 


LJNK MAP 1901/01/01 0002:44.1 


★★EXT DEFS 
P 7HC0MM 


7HC0MM 

oooo 



7HPEL 

0000 



ROOT 

0000 



ACftl 1 1 

0000 



ACR11 1 

0033 

7CMATN 

0031 

7CRIYU 

02R9 



7CRTY1 

02E1 

7CRTY2 

0312 


Figure 7-2 (cont). Sample Listings for AC8111 
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* 

7CSTOP 

033E 


7CSTDP 

033E 

* 

7CPTFR 

0341 


7CPTFR 

0353 

**IINDEF 


* 

AC*11 1 

0000 

* 

7CRTYU 

02R9 

* 

7CSTOP 

0 33E 

* 

7CRTFR 

0341 

********** 



1 


ROOT AC8111 
********** 

HIGHFST OVLY /NUM OF SYMS 
********** 

SAF 

********** 

ROOT AC8U1 
********** 

*$IZF OF ROOT AND STATIC OVLYS= 03*1 
********** 

LINK OQNF 
********** 


BASF 0000 


ST 0033 

HI REL RCDs 


,..I HTGHx03S1 
9 


Figure 7-2 (cont). Sample Listings for AC8111 

CALLING FORTRAN ROUTINES FROM AN ENTRY-LEVEL COBOL MAIN PROGRAM 

Entry-Level COBOL programs can call FORTRAN subroutines and conversely. This enables 
a COBOL application to utilize the features of the FORTRAN language, such as the intrinsic 
routines, and FORTRAN run-time libraries. 

The COBOL main program must be linked with all the called FORTRAN routines to form one 
bound unit. The FORTRAN routines and libraries must either be in the working directory or one 
of the libraries searched by the Linker, as specified by the Linker LIB and LIBn directives. 

Figure 7-3 is a sample Entry-Level COBOL source program, COBFRT, whose function is to 
calculate and print the square roots of three integers. Since the COBOL library does not have a 
square root routine, a FORTAN subroutine, FRTRAN in Figure 7-4, is used to convert the 
passed COBOL integer argument values to read values and call the FORTRAN square root 
routine. 

The commands entered from the operator terminal are listed in Figure 7-5. COBFRT.O and 
FRTRAN.O are both in the working directory FRTCOB, the COBOL run-time library, ZCRT, is 
in the directory specified by the Linker directive LIB, and the FORTRAN run-time library, 
ZFRT, is in the directory specified by LIB2. The system volume, ZSYS51, contains the 
FORTRAN and COBOL compilers, ZFRT, ZCRT and the operating system software. Volume 
FRTCOB contains the source modules (COBFRT.C and FRTRAN.F), the object modules 
(COBRFT.O and FRTRAN.O) and the linked bound unit COBFRT. 
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SOURCE PROGRAM 


1 

TOFNTIFiCATlflN DTvTSTOM. 


£ 

PROGPAM-U). CORf-PT. 


3 

* THIS PROGPA M TS AM FXAMPLF OF A COBOL PROGRAM 

4 

* CALLING A FORTRAN PPUGRAm TO GET ThF SQUARE 

ROUTS 

b 

★ OF SO M E intfrgeps and rfturning that valuf 

TO THE 

b 

7 

* COBOL PROGRAM TO RE DTSLP*YFD. 


6 

FNV/1PUNMFNT DIVISION. 


9 

COMpTGNRA\TON SEFTTON. 


1 0 

SOURCE-COmPuTER. HTS-SFRTES-M) LFVFL-b. 


1 1 

ntJ.Ttr t-COMPuTER. hTS-S p RTES-AO LFVFL-b. 


12 

RATA UTVT3T0N. 


13 

WORKTNG-SIORAGF SECTION. 


14 

77 WORK CQMR-1 VALUE +0. 


1b 

77 V A L 6 P b PIC 999 VALUF 62*. 


1b 

7/ ANS2S PIT R9. 


1 7 

77 VAL144 PIC 999 VALUF 144. 


18 

77 ANSI? PIC R9. 


19 

77 VAL9S01 PIC 0999 VALUE 9*01. 


?0 

77 ANS99 PIC 99. 


?1 

ni A(mSlm. 


?2 

02 FILLFR PIC YX value SPACES. 


?3 

Od TNTVAL PIC 9999 VALUE 2FR0. 


?4 

02 FII.LFk PIT XlA) VALUE SPACES. 


?b 

Od SQVAL PIC 9999 VALUE ZFRO. 


?t 

02 FILLFR PIC XXX VALUE SPACES. 


?7 

PROCFUURF PUVlSinN. 


?8 

PAPA 1 . 


?9 

MOVE VAL62S TO WORK. 


30 

CALL "FRTRAN” USTNG WOPK. 


31 

MOVE WORK TO ANS?S. 


32 

MOVE V AL144 TO WORK. 


33 

CALL "FRTRAN" USING WORK. 


34 

MOVE WORK TO ANS12• 


3b 

MOVE VAL9801 TO WQPK. 


36 

CALL "FRTRAN" USTNG WORK. 


37 

MOVE WORK TO ANS99. 


36 

DISPLAY "INTFGFR SO. RT.". 


39 

MOVE VAL62S TO INTVaL. 


40 

MOVE ANS?b TO SQVAL. 


41 

DISPLAY ANSLN. 


42 

MOVE VAL144 TO INTVAL. 


43 

MOVE ANSI 2 TO SQVAL. 


44 

DISPLAY ANSLN. 


4b 

MOVE VAL9801 TO TNTVAL. 


46 

MOVE ANS99 TO SQVAL. 


47 

DISPLAY ANSLN. 


48 

STOP RUN. 


49 

FND CO R OL 


no diagnostics 




Figure 7-3. COBOL Listing of COBFRT 
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1 

SUBROIITTNF FRTRAn(I) 

2 

J = I 

3 

X = FI.OATfJ) 

4 

Y = SORT(X) 

5 

I = NTNT(Y) 

6 

RETURN 

7 

END 

0 

diagnostics 


Figure 7-4. FORTRAN Listing of FRTRAN 


RDM 

(AA)PPY* 

Cm ^F d TC' ’R 
(AA)PPYs 

COROL CORF r T -COUT >oor)>T PTO r 
(AA)Copot. 03on 11 / 22 / 1^11 
(AA) OPOO PRDORS 
(AA)FND CnWRILATTOM 
(AA)RPYs 

FORTRAN FRTRAN -CONT >SRn>l.PTOO 
(AA) F()PTRA M ’*4FD 11/22/11 l R 

(AA) 0000 F R R COUNT FRTRAN 
(AA)PDY: 

LINKFP COBFRT -COOT >SPO>I PTOO 

(AA)LINKFR-OIOO-I1/23/125P 

LIB '‘7.SYS5 1 >7CRT 

LIB2 ~7SYS51>7FRT 

LINK COBFRT 

MAPlQT 

(AA)ROOT COBFRT 
(AA)LINK DONE 
(AA)RDY« 

COBFRT 

(AA)INTEGER SO. RT.' 

(AA) 0625 0025 

(AA) 0144 0012 

(AA) 9801 0099 

(AA)RDY* 


Figure 7-5. Operator Terminal Session for COBFRT 
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Section 8 

Using the FORTRAN Compiler 


This section illustrates the use of the FORTRAN compiler to construct programs written in 
the FORTRAN language, and to perform FORTRAN chaining. 

SAMPLE FORTRAN TERMINAL SESSION (MATINV) 

Figure 8-1 illustrates an operator terminal session in which the FORTRAN program 
MATINV is compiled, linked, and executed. The FORTRAN compiler is on the search path, and, 
therefore, a full pathname is not needed to locate the compiler. The Linker LIB directive directs 
the linker to search the secondary directory for FORTRAN runtime routines (ZFRT) required 
for linking. Two files, unit number 2 and 3, are associated with device pathnames. To execute 
the program, enter MATINV. Figure 8-2 shows the MATINV source listing and the linker 
output when the program was linked. 


FORTRAN VL782 SUB1 MATINV -COUT >SPD>LPT00 
($H) FORTRAN 

($H) 0000 ERR COUNT MATINV 
($H)BDY: 

LINKER V0L2 TEST MATINV -COUT >SPD>LPT00 
($H) 

LINKER 

LIB ZF0400 ZFRT 
LINK MATINV;MP;QT 
($H)R00T MATINV 
($H)LINK DONE 
($H)RDY: 

ASSOC 2 >SPD>CDR00 
($H)RDY: 

ASSOC 3 >SPD>LPT00 
($H)RDY: 

MATINV 
($H) STOP 
($H)RDY: 


Figure 8-1. Sample Terminal Session (MATINV) 


FORTRAN CHAINING 

A method of creating and controlling execution of overlays within FORTRAN programs to 
conserve memory space, commonly known as CHAINing, can be used wherein an executable 
bound unit (overlay) is executed as a chain prior to invoking the next chain. 

The source statement for referencing a chain is: 

CALL CHAIN(e) 

where e is an integer expression resulting in a value greater than or equal to zero, identifying 
the chain to be loaded. Proper linking results in a bound unit with overlays that require 
minimum memory for execution. 

Although there are no rules for defining the best method of segmenting a FORTRAN 
application into chains, the following should be considered: 

1. The largest chain determines the overall memory requirement. 

2. Any chain may be called by any other chain as many times as required. 
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MATT !Mv 


'v;n u /ioo.spo-l 1 /M / FORTRAN M^E" \W?2/ 1 1 1 ^ 


1*77/12/02 1312:36.9 SAF PAGF 001 


1 C 

2 C 


M^TPl v iN'vFRPinN 


fi|§|§§il 

i irife ifiWliV-’r^N^I 


3 OT*iFi\,Ain.-„ Ar<?n,;>0),R(?0,2*),I*vnT<’2'>),I* ! D r xi’20,20 , >,PlV0T(?Q) 

4 A’PITEf3,n 

J 2 _ 7 FORM AT ( 1 rtl , 1 3*, »M AT TNV * , //, * X, lA HGI ^fc^ 1 vfA f PXY_Ar_A>_ 


6 R p AH C2 f n 

7 1 F"RVAT(T<>, X5) 

6 _ 2 FORMAT C 7 p ip.gl _ 

9 O T T 1 , M 

io 9 rfah rAf i, j) ,.t=i ,m) 

1 1 _ 0” 14 lr l,N _ 


12 

13 




14 ^ITtOr2HMT r ?),J=l f M) 

on 11 Irl,M 


IS 



ip(t-.t) 12, n,i2 




16 


12 

BfI, Ji= n . 




1 7 



G° T 0 Ij . ... 




18 


13 

b( l, Ji = i,i 



?> ..^pp 

19 


11 

CPfVlTXWUP 



| i - ' 7 WmBM 

. ... ,20. 

JL 


I M1 T X A L T Z A F T Q V 




21 



on ’0 J = l.»i 




22 


20 

=0 




23 



o* FSrt T s1 ,N 




24 

C 


SFAPCP FOP °IV0T FLFMFNT 



. ‘jgaB 

25 



T*0 • 0 


5 


.26 



DP 1 OS Tst,M 




27 



IF(TPW0T( OS,BO 




28 


AO 

O n I0 n * =1,N 




29 



IF(TpvOT(KJ-n8'',100,7«0 




10 


AO 

IF(T**2-(a( T r K)1**218F,100,t Q* 



||®ppjjpyjK : * & : ^ ; * II 

11 


A5 

IPOW SfJ 

• V. * "■'*7:^ 



T2 



ir oi =k 



.... WfflH 

T3 



T = A(J , IO 




74 


1"0 

C n M T I M U P 




_1^. 


1M 

CUN> T I±1UF_ 





76 IPVOT<KOI .JsIPVOTf KOI ) + l 

17 C I'iMTFRCHANGE ROWS TO PUT PTVUT ELE M ENT ON DxAGONAL 

I.:-. %& iF(TROfr-ICQL) 14^#?60* 140 _ 


Figure 8-2. Source and Linker Output Listing (M ATIN V) 






1 no D n ?0O I =1 r M 
T = Af ] PG*,U 

AflPQ^fL) sACTCHLrL) _ 

200 ACICOUl) =T 

IF(M)?60 # ?60,?10 

MJL 210 DO ?5<V..tsi,M __ 

T = B f I d O ,,a, fL ) 

eriPQw,i ) sr(tc°l rL) 

2FQ B fI r Ot f l. ) =t _ 

260 INDFXflFl^ sIPOW 
INDFX CTf?) = ?C*L 
pTynrcn gArirot,TcQL) _ 

DTVTDF PIVOT POW «Y PIVOT ELE M t^T 

Afirul r Tcn L ) =1.0 

on 350 ls1,M _ 

350 ACTCOLfL) =AfICOt#L)/PTvOT(n 
IF(M)i;80 f *X80FT60 
560 OH 770 Lst.M 


370 8UC0I fU =P(TCOLfL)/PIVOT(T) 

rfducf mqn-pivot pqws _ 

3*0 pn 550 lT=1f m 

IF(U-irOL) 4O0,5^0 f4O0 

40Q T = AfLTrTCHL) _ 

AfLT.TCOL) =0.0 

00 450 f =1,M 

4*0 ACLTrl)sAfLT,L)-AfICQL fL)»T _ 

IF(M)=50fS5^f 460 
460 On fqo t =1 ,m 

5QQ BfLT,l ) = B f LT , I 3-8(1001,L)*7 _ 

550 CONTIK!UF 

i^tfrohanoe columns 

600 DO 7101 = 1 , N ___ 

L = M -T+1 

x F ( TN^tY CL r 1 )-I^' 0 PxrL, 21 ) 630 ,710,630 

foTQ IQQM r TN 0EY(l,1 )_ 

ICOL = TNOEVCIf?) 
pn tqf k = i,n 

T =A (K, TROl^f) __ 

A r K r I P() w ) =*(*,TCOLl 
A ( K , I r QI ) = T 

7Qb C n NT1 Mj,j p __ 


Figure 8-2 (cont). 











«0 

71 0 

C O N T 1M y F 


A1 


*PITEf3,lfc) * 


"2 

1 6 

FORmAT(//<?X.2?HTNVE'*SP OP MATPIX A/) 


S3 


O n 15 I s 1#»M 


*4 

15 

aPITE^3»2H»(T,.!),Jsi,m' 


S5 


rtOiTEfi/aau' 


«6 

444 

format c1H1) 


«7 

740 

$T 0° 1 

; . . jgj* 

*6 


ENO 



o DTAG^nsTjrs 


MATIMv 77ian2Ao 

FOPTPA^ *<**0 11/2P/1119 1977/1P/02 HPSH.9 SAF 


7FYFTU 771110^0 

HRS A3^£M B , t o 5 # e; 0 1075.9 F ST THU 

(Q rOPyPlCHT 1977 6 Y HQ MEYjjV F L » T iNiFQPM A T T QA> QYST c ttS T Mr 

7FSFT0 7/111000 

HRS A S 3 . E.H B L £P ? . 5 0 11/1 Q/ 7 7____ 

(O ro^yPlOnT 1977 *v MOMtY^FU TNFQOMATTO W SYSfFvis T \r 

7FSkoi 


7FQFT0 77OSO100 

HRS ASSE M 6LE D >.^0 10/07/77 O7OB.3 EOT MON 

(O FOPYPIShT 1 977 BV HQMEYirtFLl. T NFQPmATTQN SVSTFmS TNC 

7FPFTU 77111000 

HRS ASSFMhI FP ?.FQ 11/10/77 1Q54.Q ESI TH(j _ 

CO COPYPIGH7 1977 rfY hqmeywfll tnfopmatto w systems tnc 

2 £ £E J LQl . 1I 1 121M _*__ 

HRS ASSE M brt D ?.*0 1 1/21/77 1579. b E ST MHfM 

(Cl FO d Y p I^H t 1977 oY H0 M £ v *vF£l TNF 0 p M ATTO M SYSTEMS Tivjr 

ZEEiS-Li_ 

7FIOTE 7707P900 

HRS.., ASS£ M BL£P ?,?0 _ UIZ JL1Z ZZ _ Q9V .8. . EP I -Itm_ 

CO rO°YPlo:rtT 1977 B v HOMEYiNFLt TNFOPMATTU w SYSTEMS TNT 

7FUFTQ 771 1 1 000 ___ 


Figure 8-2 (cont). Source and Linker Output Listing (MATINV) 
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HRS 

(cr 

ASSEMBLE^ ?.S0 
COPYRIGHT 1977 

11/10/77 16P3.8 EST THU 

BY mqmeywfll information 

SYSTFMS 

TNT 



♦ ♦ 

M A T I w V 


l.l mk Mftp 

1 977 717/1315; 

?9.1 




♦ ★ST ART 0814 








♦♦LOW OQOQ 







. ^ ' s 

♦•WISH 105 
















♦♦FXT 0£FS 









P 

7HCQMM 

nooo 








HI 

?HREL 

0000 








Ps 










♦ 

MAT I MV 

oooo 








c 


0000 









7 P M A T N 

nai4 








♦ 

ZFYFIQ 

0E«0 







' >- v : 


-7FVXRI 

oefo 








; ♦ 

ZFSFtO 

0EP5 









7 F S F S 

*E*5 

7FSK p S 

0E*5 

7FSwllS 

OF 1 1 

7F9RMS 

0FS4 


♦ 

. 7F*FT0 

n F^5 









7F0*RK 

0FS5 








♦ 

?FPFTO 

OF 60 









' ZF P A(JS 

0F65 

7FPSTR 

OF60 



-v K? ‘v . 



♦ 

7FFFT0 

_ OF A 5 









7FM 

''FftS 

7FRFT0 

«F» 5 

7FFMFI 

12*B 

7FFMF0 

12«B 



7FF^A1 

1 2 p tt 

7FFMA0 

12*8 

7F p L p I 

1 2*B 

7FFLF0 

1268 



7 F F L A I 

12*5 

7FFLA0 

12*5 

7 F F C11 

12RE 

7FFCL0 

12*E 



_ _7F F CSI 

12F1 

7F F C SQ 

12F1 

7F p C F I 

12*4 

7FFCF0 

12F4 


•tv ■ 

u 

7F P C AI 

12*9 

7FFC AQ 

12*9 

7FFWFF 

1 4C2 

7FFRFF 

14 £2 

> - • _ . » 4 

■&. • 

ZFFIFI 

1360 

7FF1F0 

1360 

7F P IA I 

1367 

7FF1A0 

1367 

t . : r :1 


7F r JFI 

1 3*>0 

7FFJ F 0 

1360 __ ___ 

7FFJAI 

1 36A 

7FFJA0 

136A 

* '' * 

i 


13*F 

7FPkP0 

1 3 f F 

7F F MI 

1 364 

7FFKA0 

1364 



7F F 0 F I 

ib02 

7F F D C 0 

1502 

7 F F D A I 

14 FC 

7f c D®0 

14FC 



7FPWA1 

1 4FF 

7 F F p ft Q 

1 4 F F 

7FFRFI 

1505 

7FFRFQ 

1505 


♦ 

7FTQTE 

1903 









7FTQTE 

1903 

7 F F1WI 

19*2 





r ' A. 

♦ . 

—TFIIFTO 

1 A 0 8 








1__ 


Figure 8-2 (cont). Source and Linker Output Listing (M ATIN V) 






USING THE FORTRAN COMPILER 8-6 CB22 


7FL31 U no 

T 1 A A 


7F r;F 1 1 a°D 
7FRK p D 1A#D 


7FU*"F 1Arti3 
7FSU D 1 MSB 


7FMHMF 1A7A 
7FSy«4 1C 01 




Figure 8-2 (cont.). Source and Linker Output Listing (MATINV) 




3. The first statement executed in a loaded chain is always the first executable statement of 
the first main program in the chain. (A chain cannot begin with a subroutine.) 

4. All data passed between chains must be in unlabeled or labeled COMMON blocks that 
have been defined within the root. Because of Linker constraints, the first occurrence of a 
COMMON block defines its size, therefore care must be exercised when using COMMON 
blocks of different sizes. 

5. Within programs in a chain, either labeled or unlabeled COMMON may be freely used as 
a means of data communication. 

6. Data statements (for data not in COMMON) within a program of a chain cause the data to 
be initialized each time the chain is loaded. 

7. Files are common to all chains since the run-time work area is defined within the root. 

Figure 8-3 shows an assembly-language program, CHAIN, whose function is to load the 
chains specified in the CALL statements of the FORTRAN programs shown in Figure 8-4. These 
latter programs call each other at various times and print messages indicating their loading and 
execution. 


oooooi 



TITLE 

CHATN 

000002 



xLor 

ZFI0TE 

000003 



CTRL 

LINK ZFIOTF 

000004 


oooo 

xdff 

CHAIN 

000005 



* CALL chain 

(OV«) 

000006 

0000 

87S1 

CHAIN CL = 

SP1 

000007 

0001 

A84F 0401 

ldr 

$P2,*Sb7.1 

000008 

0003 

6CFF 

LOV 

$R6,-t 

000009 

0004 

0001 

MCL 


000010 

0005 

0700 

DC 7 

■ 0700 • 

00001 1 



* FRROP 

RETURN 

000012 

000b 

8380 0000 Y 

JMR 

<ZFTOTE 

000013 

0008 

0000 

DC 

0 

000014 



fndchn rfsv 

0 

000015 

0009 


end 

CHAIN 

0000 EPR COUNT 




00128 WORD 

SYMBOL 

TARLF 




Figure 8-3. Assembly Listing of Program CHAIN 


1 PROGRAM PROGOO 

2 COMMON IC 

3 COMMON V,TFLR 

4 DIMENSION ARRY(62) 

5 COMMON /LABI/DUMMY(50) 

6 COMMON /LAB?/ DUNX(527) 

7 1C = 0 

8 WRITE f 3 f 5) 

9 5 FORMAT(*l*/' PROGO APPEARS ON FXFCUTF LINE - CALLS CHATN 0'/) 

10 CALI. CHAIN(O) 

11 FND 

0 DIAGNOSTICS 


1 PROGRAM PR0G01 

2 COMMON TC,X 

3 COMMON /L AC1/ DA T A 1(25) 

4 COMMON /LAC?/ DAIA2C378) 

5 Character a * ? o 

6 IC=TC+i 

7 P£AD(2,215) a 


Figure 8»4. FORTRAN Programs Calling the CHAIN Function 
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8 ? 15 FORMAT(A20) 

9 WRTTF(3,2lS) A 

10 CAtL PPOGD 

11 WRI1F (3,S) 

12 5 FORMAT(/' PPOGi IS CHAIN 0 WHICH CALLS CHAIN 1*) 

13 CALL CHAIN (1) 

14 END 

0 DIAGNOSTICS 


1 SUBROUTINE PPOGD 

2 COMMON /LAC1/ DATA!(25) 

3 COMMON /LAC2/ OATA2(376) 

4 wPlTEf3,305) 

5 30S FORMAT(5X,' SU8R0UTTNF PROGD LOADED'/) 

6 RETURN 

7 END 

0 DIAGNOSTICS 


1 PROGRAM PROG02 

2 COMMON /LABl/DUMMyCSO) 

3 DIMENSION ARP y(6?) 9 ARPY1(157) 

4 CHARACTER** A1,A3,A4 

5 COMMON IC * 7 * IQ 

6 IF (TC.GT.1) GO TO 10 

7 TQ = 0 

8 Air* CHAIN O' 

9 WRTTF(3,S) A1 

10 S FORMAT!/* PR0G2 IS CHAIN 1 - WHICH CALLS 

11 CALL CHATNCO) 

12 10 A3r * CHAIN ?• 

13 IF (IQ*EG.4) GO TO 20 

14 WRITF(3,S) A3 

15 CALL CHAIN (?) 

16 ?0 A4r» CHAIN 3* 

17 WRTTF(3,S) A 4 

18 STOP 

19 ENH 

0 DIAGNOSTICS 


,A8) 


1 PROGRAM PROG03 

2 CHARACTER a*?o 

3 WRTTF(3#S) 

4 PEADC2,21S) a 

5 ?1S FORMAT CAPO) 

6 WRITE(3 r ?1S) A 

7 CAI L CHATNf 3) 

8 G FORMAK/' PW0G3 IS CHAIN ? - WHICH CALLS CHAIN 3'/) 

9 FNO 

0 diagnostics 


1 PROGRAM PR 0 G 0 4 

2 CUMMON ic,f,t 

3 COMMON /LARI/ OUMMY(GO) 

4 T = T t 1 

5 K=4 

6 TF (T.Fw.4) K=? 

7 IF (T.Fu.b) GOTO 09 

8 WRllF(3#S) K — 1 

9 S FORMAT!/' PR0G4 IS CHAIN 3 - CALLS CHATN* r T 2/ ) 

I 0 CALL CHAIN (K-l) 

II 09 STOP 

1 2 ENO 

0 diagnostics 


Figure 8-4 (cont). FORTRAN Programs Calling the CHAIN Function 
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Figure 8-5 is the output listing resulting from the linking of the programs constituting the 
chain. 


LINKER-01 00-1 1/23/1258 GC0S6 M0D400-S1 00-11 /29/0620 

BU= TSTCH1 LINKED ON: 1977/12/02 1354:06.5 -SAF 

PROG00 77120200 

FORTRAN M4FD tl/2?/llt9 1977/12/02 1352:46.3 SAF 
CHAIN 

1977/12/02 1326:22.5 ASSFMBLFR-0100-11/17/t346 GC0S6 MOD400-S100-11/29/0620 
ZFSFIO 77111000 

HRS ASSEMBLER 2.50 11/10/77 1030.1 EST THU 

(C) COPYRIGHT 1977 BY HQNEYWFLL INFORMATION SYSTFMS INC 

ZFSK01 

ZFQFIO 77050100 

HRS ASSEMBLER 2.50 10/03/77 0708.3 EDT MON 

CC) COPYRIGHT 1977 BY HQNEYWFLL INFORMATION SYSTEMS INC 

ZFPFIO 77111000 

HRS ASSEMBLER 2.50 t1/10/77 1054.0 EST THU 

CC) COPYRIGHT 1977 BY HQNEYWFLL INFORMATION SYSTEMS INC 

ZFFFIO 77112100 

HRS ASSEMBLER 2.50 11/21/77 1539.6 EST MON 

(C) COPYRIGHT 1977 BY HONEYwFLL INFORMATION SYSTFMS INC 

ZFFK01 

ZFIOTE 77072900 

HRS ASSEMBLER 2.50 10/13/77 0937.6 EOT THU 

(C) COPYRIGHT 1977 BY HQNEYWFLL INFORMATION SYSTFMS INC 

ZFIJFIO 771 1 1000 

HRS ASSEMBLER 2.50 11/10/77 1623.8 EST IHU 

(C) COPYRIGHT 1977 BY HONEYwFLL INFORMATION SYSTFMS INC 


** TSTCH1 LINK MAP 1977/12/02 1354:06.5 

♦★START 0668 

★★LOW 0000 

**HIGH 145C 

**$COMM 0164 

★★CURRFNT 145C 

**FXT DEFS 
P 7HC0MM 0000 
P 7HREL 0000 

** ROOT 0000 

* PROGOO 0000 
C SZFWRK 0000 
C SCOMM 0164 
C LABI 016A 
C LAB2 01CE 

PROGOO 0668 

* CHAIN 06 A 3 
CHAIN 06A 3 

* ZFSFIO 06AC 



ZFSWFS 

06 AC 

ZFSRFS 

06CC 

ZFSwUS 

0708 

ZFSRUS 

072B 

★ 

ZFQFIO 

074C 








7FQWRK 

074C 







* 

ZFPFIO 

0757 








7FPAUS 

075C 

ZFPSTP 

0757 





★ 

ZFEFIO 

07 p C 








ZFAN 

079C 

ZFEFIO 

079C 

ZFFMFI 

0AB2 

7FFMFO 

0A82 


ZFFMAI 

0A7F 

ZFFMAO 

0 A7F 

ZFELFI 

0AB2 

7FFLEO 

0A82 


ZFFLAI 

0A7C 

7FFLAO 

0A7C 

ZFFCLI 

0AD5 

ZFECLO 

0 AD5 


ZFFCSI 

0AD8 

7FFCSO 

0AD8 

7FECE1 

0 ADB 

7FECEO 

OADB 


Figure 8-5. Linker Output for Chained Programs 
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7FFCAI 

0 ADO 

7FFCAO 

0 ADO 

7FEWFF 

0CR9 

7FERFF 

0CB9 


7FEIFI 

0B60 

7FEIE0 

0B64 

7FFIAI 

0 BSE 

ZFEIAO 

0B5E 


7FFJFI 

OB60 

7FEJEO 

0B64 

7FEJAI 

0B6 1 

ZFFJAO 

0B61 


7FFKFI 

0BS6 

7FFKE0 

0856 

7FEKAI 

0B5B 

7FEKA0 

0B5B 


7FF0EI 

0CF9 

7FFDE0 

0CF9 

7FEDAI 

0CF3 

ZFFDAO 

0CF3 


7FFRAI 

0CF6 

7FFRA0 

0CE6 

7FEREI 

OCFC 

ZFEREO 

OCFC 

* 

7FI0TF. 

1 IRA 








7FT0TF_ 

URA 

7FFINI 

1 1C 9 





★ 

7FUFT0 

1202 








7FLB1 

12D0 

7FGF1 

129a 

7FWWUF 

1202 

7FURUF 

1221 


ZFAwRT 

1231 

7FPRFD 

1200 

7FSUB1 

120F 

ZFSUBO 

1 3F8 


7FSUR6 

1387 







★ ★IJNDEF 








★ 

PROGOO 

0000 







k 

C H A IM 

0 fo A 3 







k 

7FSFT0 

06 AC 







k 

7FQFT0 

070C 







k 

7FPFTO 

07S7 







k 

7FEFI0 

07RC 







k 

7FI0TE 

1 IRA 







k 

7FUFTU 

1202 







PR0GO1 77120300 







FORTRAN 

^ 0 F D 

1/22/1119 

1977/12/02 1352:06.3 

SAF 


PROGD 77120200 







FORTRAN 

«4ED 11/22/1119 

1977/12/02 135? 5 46.3 

SAF 


★ k 

TSTCHl 


LINK MAP 

1977/12/02 1350 

J06.5 



★ ★start 

782 







★ ★LOW 

10SC 







★ ★HIGH 

180F 







kk %COMM 

r >160 







★★CUPRFNT 

1 80F 







★★FXT OFFS 








P 

7HCOMM 

0000 







P 

7HPEL 

oooo 







★ ★ 

ROOT 

oooo 







k 

PROGOO 

00 00 







c 

*ZFWRK 

oooo 







c 

SCOMM 

0160 







c 

l API 

0 1 6 A 







c 

l AB2 

01CE 








PROGOO 

0666 







* 

CHAIN 

06 A3 








CHAIN 

06 A 3 







* 

7FSFTO 

06 A C 








7FSWFS 

06 AC 

7FSRFS 

06CC 

ZFSwUS 

0708 

ZFSRIJS 

072B 

★ 

ZFGF10 

074C 








ZFOWRK 

070C 







★ 

ZFPFIO 

0757 








ZFPAUS 

075C 

7FPSTP 

0757 





* 

7FEFI0 

07RC 








7F AN 

079C 

ZFEFTO 

079C 

7FEMFI 

0 A82 

7FEME0 

0A82 


ZFEMAI 

0 A7F 

ZFEMAO 

0A7F 

ZFELFI 

0A82 

ZEELEO 

0 A82 


7F^LAI 

0A7C 

7FELA0 

0A7C 

ZFECLI 

0 AD5 

7FFCL0 

0 AD5 


ZFECvSI 

0 A08 

7FECS0 

0AD8 

7FECEI 

OADB 

ZFECEO 

OADB 


ZFFCAI 

0 ADO 

ZFECAO 

0 ADO 

ZFEWFF 

0CB9 

7FERFF 

0CB9 


ZFEIEI 

0B60 

ZFFIFO 

0B60 

7FF I A I 

0B5E 

7FFIA0 

0B5E 


ZFEJEI 

0B60 

ZFEJFO 

0B60 

ZFEJAI 

0B61 

ZFFJAO 

0B61 


ZFEKEI 

0B56 

7FEKF0 

0856 

7FEKAI 

0B5B 

ZFEKAO 

0B5B 


7FE0EI 

0CF9 

7FEDE0 

0CF9 

ZFEDAI 

0CF3 

ZFEDAO 

0CF3 


ZFERAI 

0CF6 

7FFRA0 

0CF6 

7FEREI 

OCFC 

ZFERFO 

OCFC 

* 

ZFIOTE 

URA 








7FI0TE 

1 1 BA 

ZFFINI 

1 1C9 





■* 

7FUFI0 

1202 








Figure 8-5 (cont). Linker Output for Chained Programs 
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7FLBI 

12D4 

7FGF1 

1294 

7FUWUF 

1202 

ZFURUF 


ZFAWRT 

1231 

7FBRED 

1 244 

7FSUB1 

124F 

ZFSUB4 


ZFSUB6 

1387 






P 

endchn 

1 45C 






♦ ♦ 

XROGOO 

145C 






♦ 

PROGOl 

1 45C 






c 

LAC 1 

14SC 






c 

LAC2 

148E 







PROGOl 

1782 






♦ 

PROGD 

1 7DF 







PROGD 

1 7DF 






♦♦UNDEF 







♦ 

PROGOO 

0000 






* 

CHAIN 

06 A 3 






♦ 

7FSFI0 

06 AC 






♦ 

7FQFIO 

074C 






* 

ZFPFTO 

0757 






♦ 

7FEFIO 

079C 






♦ 

7FIOTE 

1 1 B A 






♦ 

7FUFJO 

1202 






♦ 

PROGOl 

145C 






♦ 

PROGD 

17 OF 






PR0G02 77120200 







FORTRAN M4ED 11/22/1119 1977/12/02 1352:46.3 SAP 


7FBFIO 77091600 

HRS ASSEMBLER 2.50 10/15/77 1612.6 EOT SAT 

(C) COPYRIGHT 1977 BY HONEYWELL INFORMATION SYSTEMS INC 


♦ ♦ TSTCH 1 LINK MAP 1977/12/02 1354:06.5 

♦★START 1612 

♦♦LOW 145C 

♦♦HIGH 16FB 

♦♦SCOMM 0164 

♦♦CURRENT 16EB 

**€XT OEFS 

P 7HC0MM 0000 
P 7HREL 0000 


r ♦ 

ROOT 

0000 






♦ 

PROGOO 

0000 






C 

SZFWRK 

0000 






C 

SCOMM 

0164 






C 

LABI 

0 1 6 A 






C 

LAB2 

01CE 







PROGOO 

0668 






* 

CHAIN 

06 A 3 







CHAIN 

06 A 3 






★ 

7FSFTO 

06 AC 







7FSWFS 

06 AC 

7FSRFS 

06CC 

7FSWUS 

0708 

7FSRIJS 

♦ 

7FOFIO 

074C 







7FGWPK 

074C 






•k 

7FPFTO 

0 75 7 







7FPAUS 

075C 

7FPSTP 

0757 




* 

ZFEFTO 

079C 







7F AN 

079C 

7FFFI0 

079C 

7FEMFI 

0A82 

7FFMFO 


ZFFMAI 

0 A 7F 

7FFMA0 

0A7F 

7FFLFI 

0A82 

IF FLEO 


7FELAI 

0A7C 

7FFLA0 

0A7C 

ZFFCLI 

0 ADS 

7FFCL0 


7FFCSI 

0 ADB 

7FFCSO 

0AD8 

7FFCFI 

0 ADB 

7FECEO 


ZFECAI 

0 ADO 

7FECAQ 

0 ADO 

7FFWFF 

0CB9 

7FERFF 


7FEIEI 

0B64 

7FFIF0 

0B64 

7FFI A I 

OBSE 

7FFIAO 


7FEJFI 

0B64 

7FFJE0 

0B64 

7FEJAI 

0B61 

7FFJAO 


7FEKFI 

0856 

7FFKF0 

0856 

7FEK A I 

OBSB 

7FFKAO 


7FEOFI 

0CF9 

7FFDF.0 

0CF9 

7FFDAI 

0CF3 

ZFFDAO 


Figure 8-5 (cont). Linker Output for Chained Programs 
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7FERAI 

0CF6 

7FFRA0 

0CF6 

7FERFI 

OCFC 

7FERE0 

★ ZFIOTE 

1 1B A 






ZFIOTE 

1 1 BA 

7F FINI 

1 1C9 




★ 7FUFT0 

1202 






7FLB1 

1204 

7FGF1 

1294 

ZFUaUF 

1202 

7FURUF 

ZFAWRT 

1231 

7FBRF0 

1244 

7f sub i 

124F 

7FSUB4 


7FSUB6 1387 
P ENDCHN 14SC 

** XROGOO 14SC 

★ ★ XROG02 145C 

* PROG02 145C 
PROG02 1612 

* 7FBFTO 16B3 
7FBCMC 16P 3 

**UNDEF 

* PROGOO 0000 

* CHAIN 06A 3 

* 7FSFI0 06AC 

* ZFOFIO 074C 

* 7FPFI0 07S7 

* ZFEFIO 079C 

* ZFIOTE 11 BA 

* ZFUFIO 1202 

* PROG02 145C 

* 7F0FIO 1603 


PII0603 77120200 

FORTRAN **CD 11/22/1110 1977/12/02 l3S?tU.l 9AF 


★ ★ TSTCHl 

★ ♦START 14SC 

★★Low iasc 

★★HIGH 14Mb 

★★* C OMM 0164 
★*CUPRFnT 14Bb 


l INK MAP 19 7 7 


12/02 1354:06.S 


★ * FXT ntFS 
P 7 H r u M M oooo 
p 7HPF L 0000 

★★ Poor oooo 

★ PROGOO 0 0 0 u 
C */FrtP* 0 0 0 o 

C fc nM M 0 164 
C t AB1 016A 

C LAB? 01 ct 
PPOGOO 0 66M 

★ Chain o b a $ 
r H a i m o o a 5 

★ 7FSFTU ObAC 


7FS^FS 

ObAC 

7FSRF S 

ObCC 

7 F S w U S 

0 7 Ob 

7FSRHS 

★ 7F0FT0 

0 7 4 C 






7F0«9K 

0 7 4C 






★ 7FPFTU 

0/F/ 






7FPAMS 

0 7 SC 

7LPSTP 

0 75/ 




★ 7FFFTU 

0 7PC 






7F An 

0 7 PC 

7FFF TU 

o 7 Q C 

7FFMF1 

0 A 8? 

7 F F M F 0 

7 F F m A I 

0 A 7F 

7 F F m A 0 

0A7F 

7FFLF1 

0 A 82 

7FFIFO 

7FFLAI 

0 A 7C 

7FFL.Au 

0A7C 

7F ECU 

0AD5 

7FFCIU 

7FFC81 

0 ADb 

7FFCS0 

0 A06 

7FFCFI 

0 AOB 

7FFCF0 

7FFCAI 

0 AH|) 

7FPCAQ 

oado 

7FFwFF 

0CB9 

7FFRFF 

7 F F 1 F 1 

0H64 

7FFIFO 

066 4 

7 F F ] A 1 

OBSfc 

7FFiAU 

7FFJF I 

0664 

7FFJF0 

0H64 

7FFJAI 

0661 

7FFJA0 

7FF*F i 

065b 

7 F F f\ P U 

ObSb 

7 F F k A I 

ObSb 

7 F F K A U 

7FF0FI 

0 C F9 

7FF0F0 

0 C F 9 

7FFQAI 

0CF3 

7 F F 0 A 0 

7FFRAI 

OCFb 

7F F k A 0 

0 C F 6 

7FFRF I 

OCFC 

7FFRFU 


★ ZFTOTE 1 1B A 


Figure 8-5 (coni). Linker Output for Chained Programs 


OCFC 


1221 

13F6 


072b 


0 A 8 ? 
0 A 8 ? 
0 A 05 
0 AOb 
0C«9 
ObSE 
ObM 
OHSH 
0CF3 
OCFC 
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7 F F I M I 11C9 


7FTUTt 1lHA 

* ZFUFTu 1202 

7 F L B 1 12P4 7FF,m 1 ^°U 7FUwMF 1202 7FURUF 1221 

7 F A w P 1 1 ^ 1 7FWKFU 12'44 7F-SUB1 1 20F 7F SUHa 1 3F 8 

7F*URb 13*7 
p fndchn i a^c 

** XROGOO 14SC 

** XRPG02 ta^c 

** x r o g o 5 iasc 

* PRPG0 3 lasc 

prpc, 03 l^SC 
* **JNOE F 

* PRPGOO OOOO 

* CHAIN 0 b A 3 

* 7FSFIU ObAC 

* 7FQFTU 0 7 4C 

* 7FPFT0 0757 

* 7FFFT0 07PC 

* ZFIOTE t1RA 

* 7FIJFT0 1202 

* progo3 iasc 


PROGOa 77120200 

FORTRAN m 4FQ 11/22/1119 1977/12/02 I352:4b.3 SAF 


** TSTCHl l INK MAR 1977/12/02 l3S«:0b.5 

**START 19SC 

**iow iasc 

♦♦HIGH 14B2 

**1>C0MM 01b4 

**CURRFNT 14R2 

* *F X T DfcFS 
P 7HC0MM 0000 
P 7HREL 000() 

** ROOT 0000 

* PRPGOO 0()O0 

C %ZFwPK oooo 
C fCHMM Olba 
C LABI 01bA 
C l A R 2 0 1C F 

PRPGOO 066b 

* CHAIN 0 b A 3 
CHAIN 0 b A 3 

* 7FSFTU ObAC 


7F SvvFS 

ObAC 

7 FSRF S 

ObCC 

7F Si&US 

0 708 

7FSRHS 

0 7?B 

7FPF TO 

0 7 0C 







7FO*PK 

0 7oc 







7FPFIO 

07^/ 







7FPAMS 

07FC 

7 F P S T R 

07S7 





7FFFTO 

0 7 9 C 







7FAN 

079C 

7FFF TU 

0 /9C 

7FFMF I 

oa«2 

7FFMFO 

oa^ 

7FFMA1 

0 A 7F 

7 F F M A U 

0 A 7F 

7FFLFI 

0 AB2 

7 F F L F U 

OAfl? 

7FFLAI 

0A7C 

7 F F L A 0 

0A7C 

7FFCL1 

0 AOS 

7FFCL 0 

OADb 

7 F F C B I 

0 A P*5 

7FFCSU 

0 AP6 

7 F F C F 1 

0 APB 

7FFCFO 

oahh 

7FFC A 1 

OAPO 

7FFCAQ 

oado 

7FF W FF 

0CR9 

7FFRFF 

OCRV 

7FFIFI 

Obba 

7F FIFO 

o»64 

7 F F I A I 

OHSfe 

7FFIAO 

OHSt 

7FFJF1 

OHbq 

7FFJFO 

0B64 

7FFJAI 

OHM 

7FFJAG 

obm 

7FFkFI 

OBSb 

7FFKFO 

0HS6 

7FFKAI 

OBSb 

7FFKAU 

OBSb 

7FFDFI 

OCF9 

7FFDFQ 

0CF9 

7FF0AI 

OCFi 

7FFDAU 

OCFJ 

7FFRAI 

OCFb 

7FFKAQ 

OCFb 

7FFRFI 

OCFC 

7FFRFU 

OCFC 

7FTUTE 

1 IRA 







7F TOTE 

1 IRA 

7 F FINI 

t 1C9 





7FUF T (j 

1202 








Figure 8-5 (cont). Linker Output for Chained Programs 
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7 FLB 1 

1 £04 


7 F AwPT 

1231 


7 FSURb 

1 3«7 

p 

FnDCHN 

t 4 SC 

* * 

VROGO 0 

tasc 

* * 

XROG 02 

tasc 

* * 

XK 0 G 03 

lasc 

* it 

VROGOa 

i 4 SC 

* 

PROGOa 

i asc 


PROGOa 

lasc 

**UNDEF 


* 

PRDG 00 

oooo 

* 

CHAIN 

06 A 3 

* 

7 FSFTU 

06 A C 

it 

7 F 0 FT .0 

0 7 4 C 

it 

7 FPFT 0 

07 S 7 

it 

7 FFFT 0 

0 / 9 C 

it 

ZFTOTfc 

1 IRA 

it 

7 FUFTO 

1202 

it 

PROGOa 

lasc 

********** 



ROOT TSTCHl 

HIGHFST nVI Y 3 

********** 


7 F Oh t 
7 FRRFD 


/fvlUM OF S Y N’S 


1 294 
i 244 


o 


SAF 


7 FIHM 1 F 1202 
7FSUR1 124F 


7 F 0 RUF 1221 
7 FSUR 4 13 F 6 


ROOT TSTCHl 



BASF 

oooo 

ST 

0666 

-...I 

HlGHriaSC 

OVLY XROGOO 

a 

00 

BASF 

14 SC 

ST 

1 762 

-.••1 

HIGHM 60 F 

OVLY XROG 02 

********** 

n 

01 

b ASF 

1 4 SC 

ST 

1612 

-...1 

H T G H = 1 6 F B 

OVLY X R 0 Q 0 3 
********** 

n 

02 

BASF 

1 4 SC 

ST 

i asc 

-...1 

hTGH = 1 aR 6 

OVLY XROGOa 
********** 

*STZF OF ROOT 
********** 

LINK OOfviF 
********** 

U 03 BASF 145 C 

Awn S 1 A 1 Tc ovlys = ibof 

ST 

1 asc 

HT PtL 

-...I 

RC 0 = 62 

hlGH = 1 aR 2 


Figure 8-5 (cont). Linker Output for Chained Programs 


Figure 8-6 illustrates the linker directives required to create the bound unit TSTCH1, 
comprising the programs listed in Figures 8-3 and 8-4. 

Figure 8-7 shows the output resulting from the execution of the chained programs. 
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LIB A VL5901>LDD>0BJECT>FRI0R 

LINK PR0G00 

MAP 

OVLY XR0G00 

DEFINES OVERLAY 0 (CHAIN 0) 

LDEF ENDCHN,$ 

DEFINES BASE FOR OVERLAYS 

PROT ENDCHN 

BASE ENDCHN 

LINK PR0G01 

MAP 

BASE ENDCHN 

OVLY XR0G01 

DEFINES OVERLAY 1 (CHAIN 1) 

LINK PR0G02 

MAP 

OVLY XR0G02 

DEFINES OVERLAY 2 (CHAIN 2) 

BASE ENDCHN 

LINK PR0G03 

MAP 

OVLY XR0G03 

DEFINES OVERLAY 3 (CHAIN 3) 

BASE ENDCHN 

LINK PR0G04 

MAP 

QT 


Figure 8-6. Linker Directives for C hained Programs 


PROGO APPEARS flN FxFCUTE LINE - CALLS CHAIN 0 
CARO 1 

SUBROUTINF PROGO 10ADFD 


PROG1 IS CHAIN 0 WHICH CALLS CHAIN 1 

PROG? IS CHAIN 1 - WHICH CALLS - CHA T N 0 
CARD ? 

SUBROUTINE PROGO LOAOFD 


PROG 1 IS CHAIN 0 
PROG? IS CHAIN 1 
PROG3 IS CHAIN ? 
CARO 3 

PROG# TS CHAIN 3 


WHICH CALLS CHAIN 1 

- WHICH CALLS - CHATN ? 

- WHICH CALLS CHAIN 3 

- CALLS CHAIN 3 


PR0G4 IS CHAIN 3 


CALLS CHAIN 3 


PR0G4 TS CHAIN 3 

PR0G4 TS CHAIN 3 

PROG? IS CHAIN 1 


CALLS CHAIN 3 

CALLS CHAIN 1 

WHICH CALLS - CHAIN 3 


Figure 8-7. Execution Output from Chained Programs 


USING THE FORTRAN COMPILER 


8-15 


CB22 





V 


._.y 


(f . N 

w 




Section 9 
Using the Sort 


Figure 9-1 contains a sample session at the operator terminal to sort a file using the Sort 
utility. Sort descriptors are entered through the operator terminal. Refer to the Sort/Merge 
manual for details on the use of the Sort component. 


C :$H: 

SD "1977/02/15 1428" 

($H)RDY: 

CWD •'SRTI02 
($H)RDY: 

~Zrrr06>S0RT 

($H)ENTER SORT DESCRIPTION 

FILES: -IF IDSF06 -OF 0DSF02 -WF "SRTCW2>WDSF02 ; 
KEYS: CHAR (6) 78 D, CHAR 4 36 ; 

QUIT 

($H)MOUNT "SRTCW2>WDSF02 

($H)S0RT-rrrr-Amm/dd/hhmm 

($H)INPUT FILE : ~SRTI02>IDSF06 

($H)RECORDS READ 000350 

($H)OUTPUT FILE:' s SRTI02>0DSF02 

($H)RECORDS WRITTEN 000350 

($H)RECORDS DELETED 000000 

($H)RDY: 


Figure 9-1. Sample Sort Terminal Session 


The Sort utility is on volume Zrrr06 and the application files are on SRTI02. The Sort is 
invoked by entering the pathname, A Zrrr06>SORT. The Sort description statements are then 
entered. In this example, the work file is not mounted, and a message to mount 
A SRTCW2>WDSF02 is issued. 
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INDEX 


ACCESS 

ACCESS BY LOGGING IN, 4-1 

ACCESS THROUGH THE OPERATOR OR 
ANOTHER USER, 4-2 

ACCESS THROUGH THE OPERATOR 
TERMINAL, 4-4 

USER ACCESS TO THE SYSTEM, 4-1 

ASSEMBLER 

ASSEMBLER OUTPUT LISTING (SMPMAC) 
(FIG), 6-4 

USING THE ASSEMBLER AND MACRO 
PREPROCESSOR, 6-1 

BATCH 

EXECUTION OF AN APPLICATION FROM 
THE BATCH TASK GROUP, 4-3 

CALL 

CALL FORTRAN ROUTINES FROM AN 
ENTRY-LEVEL COBOL MAIN 
PROGRAM, 7-7 

CALLING 

FORTRAN PROGRAMS CALLING THE CHAIN 
FUNCTION (FIG), 8-7 

CHAINING 

FORTRAN CHAINING, 8-1 

COBOL 

CALL FORTRAN ROUTINES FROM AN 
ENTRY-LEVEL COBOL MAIN 
PROGRAM, 7-7 

COBOL LISTING OF COBFRT (FIG), 7-8 

COMPILING WITH COBOL, 7-2 

SAMPLE COBOL TERMINAL SESSION 
(AC8111), 7-3 

USING THE COBOL COMPILER, 7-1 

COMMAND 

COMMAND PROCESSOR AS LEAD 

TASK, 4-2 

COMPILER 

USING THE COBOL COMPILER, 7-1 

USING THE FORTRAN COMPILER, 8-1 

CONCURRENT 

CONCURRENT EXECUTION FROM SEVERAL 
TASK GROUPS, 4-3 

CONCURRENT EXECUTION OF APPLICATION 
TASKS, 4-3 

DATA 

EXECUTION FROM THE DATA ENTRY 
FACILITY (DEF), 4-4 

DEDICATED 

DEDICATED APPLICATION 
ENVIRONMENT, 2-2 

DEF 

RBF AND DEF USER GUIDE TO MANUALS 
(FIG), 1-5 

RBF AND DEF USER MANUAL GUIDE, 2-1 


EDITOR 

EDITOR DIRECTIVE DESCRIPTION, 5-1 
SAMPLE EDITOR DIRECTIVES IN FILE 
SMPCMDFL (FIG), 5-1 

ENVIRONMENT 

ALL-ONLINE ENVIRONMENT, 2-1 
DEDICATED APPLICATION 
ENVIRONMENT, 2-2 
MIXED ENVIRONMENT, 2-2 
ONLINE/BATCH ENVIRONMENT, 2-2 
OPERATOR-ONLY ENVIRONMENT, 2-1 

EXECUTION 

CONCURRENT EXECUTION FROM SEVERAL 
TASK GROUPS, 4-3 

CONCURRENT EXECUTION OF APPLICATION 
TASKS, 4-3 

EXECUTION FROM THE DATA ENTRY 
FACILITY (DEF), 4-4 
EXECUTION OF AN APPLICATION FROM 
THE BATCH TASK GROUP, 4-3 
EXECUTION OUTPUT FROM CHAINED 
PROGRAMS (FIG), 8-15 
SERIAL EXECUTION OF APPLICATION 
TASKS, 4-2 

FORTRAN 

CALL FORTRAN ROUTINES FROM AN 
ENTRY-LEVEL COBOL MAIN 
PROGRAM, 7-7 
FORTRAN CHAINING, 8-1 
FORTRAN LISTING OF FRTRAN 
(FIG) , 7-9 

FORTRAN PROGRAMS CALLING THE CHAIN 
FUNCTION (FIG), 8-7 
SAMPLE FORTRAN TERMINAL SESSION 
(MATINV), 8-1 

USING THE FORTRAN COMPILER, 8-1 

GUIDE 

APPLICATIONS PROGRAMMER * s MANUAL 
GUIDE, 1-2 

APPLICATIONS PROGRAMMER GUIDE TO 
MANUALS (FIG), 1-3 
GUIDE TO USING THE MANUAL SET, 1-1 
OPERATOR'S MANUAL GUIDE, 1-5 
OPERATOR GUIDE TO MANUALS 
(FIG), 1-4 

RBF AND DEF USER GUIDE TO MANUALS 
(FIG), 1-5 

RBF AND DEF USER MANUAL GUIDE, 2-1 
SYSTEM PROGRAMMER'S MANUAL 
GUIDE, 1-2 

SYSTEM PROGRAMMER GUIDE TO MANUALS 
(FIG) , 1-4 

LEAD TASK 

APPLICATION AS LEAD TASK, 4-2 
COMMAND PROCESSOR AS LEAD 
TASK, 4-2 


i-1 


CB22 



INDEX 


LINKER 

LINKER DIRECTIVES FOR CHAINED 
PROGRAMS (FIG), 8-15 
LINKER OUTPUT FOR CHAINED PROGRAMS 
(FIG), 8-9 

LINKER OUTPUT LISTING (SMPMAC) 

(FIG) , 6-5 

SOURCE AND LINKER OUTPUT LISTING 
(MATINV) (FIG), 8-2 

LISTING 

ASSEMBLER OUTPUT LISTING (SMPMAC) 
(FIG), 6-4 

ASSEMBLY LISTING OF PROGRAM CHAIN 
(FIG), 8-7 

COBOL LISTING OF COBFRT (FIG), 7-8 
CROSS REFERENCE LISTING (SMPMAC) 
(FIG), 6-3 

FORTRAN LISTING OF FRTRAN 
(FIG), 7-9 

LINKER OUTPUT LISTING (SMPMAC) 

(FIG) , 6-5 

SAMPLE LISTINGS FOR AC8111 
(FIG), 7-4 

SOURCE AND LINKER OUTPUT LISTING 
(MATINV) (FIG), 8-2 

LOADING 

SOURCE LOADING, 7-2 

LOGIN 

ABBREVIATED LOGIN TERMINAL, 4-1 
DIRECT LOGIN TERMINAL, 4-1 
FULL LOGIN TERMINAL, 4-1 
STARTUP WITH THE LOGIN 
FACILITY, 3-1 

MACRO 

MACRO PREPROCESSOR OUTPUT (SMPMAC) 
(FIG), 6-2 

SAMPLE OF UNEXPANDED MACRO ROUTINE 
(SAMPLl) (FIG), 5-10 
SAMPLE OF UNEXPANDED MACRO ROUTINE 
(SAMPL2) (FIG), 5-11 
SAMPLE OF UNEXPANDED PROGRAM WITH 
MACRO CALLS (SMPMACP) (FIG), 5-9 
USING THE ASSEMBLER AND MACRO 
PREPROCESSOR, 6-1 

MANUAL 

APPLICATIONS PROGRAMMER'S MANUAL 
GUIDE, 1-2 

GUIDE TO USING THE MANUAL SET, 1-1 
OPERATOR'S MANUAL GUIDE, 1-5 
RBF AND DEF USER MANUAL GUIDE, 2-1 
SYSTEM PROGRAMMER'S MANUAL 
GUIDE, 1-2 

MANUALS 

APPLICATIONS PROGRAMMER GUIDE TO 
MANUALS (FIG), 1-3 
OPERATOR GUIDE TO MANUALS 
(FIG), 1-4 

RBF AND DEF USER GUIDE TO MANUALS 
(FIG), 1-5 


MANUALS (CONT) 

SYSTEM PROGRAMMER GUIDE TO MANUALS 
(FIG), 1-4 

MULTITASK 

SAMPLE ASSEMBLY LANGUAGE MULTITASK 
PROGRAM (BRDCST), 6-6 

ONELINE/BATCH 

ONLINE/BATCH ENVIRONMENT, 2-2 

OPERATING 

OPERATING ENVIRONMENT, 2-1 

OPERATOR 

ACCESS THROUGH THE OPERATOR OR 
ANOTHER USER, 4-2 
ACCESS THROUGH THE OPERATOR 
TERMINAL, 4-4 
OPERATOR GUIDE TO MANUALS 
(FIG), 1-4 

OPERATOR TERMINAL SESSION FOR 
COBFRT (FIG), 7-9 

OUTPUT 

ASSEMBLER OUTPUT LISTING (SMPMAC) 8 
(FIG), 6-4 

EXECUTION OUTPUT FROM CHAINED 
PROGRAMS (FIG), 8-15 
LINKER OUTPUT FOR CHAINED PROGRAMS 
(FIG), 8-9 

LINKER OUTPUT LISTING (SMPMAC) 

(FIG), 6-5 

MACRO PREPROCESSOR OUTPUT (SMPMAC) 
(FIG), 6-2 

SOURCE AND LINKER OUTPUT LISTING 
(MATINV) (FIG), 8-2 

PROGRAM 

ASSEMBLY LISTING OF PROGRAM CHAIN 
(FIG) 8-7 

CALL FORTRAN ROUTINES FROM AN 
ENTRY-LEVEL COBOL MAIN 
PROGRAM, 7-7 

SAMPLE ASSEMBLY LANGUAGE MULTITASK 
PROGRAM (BRDCST), 6-6 
SAMPLE CARD-TO-DISK PROGRAM, 7-1 
SAMPLE OF UNEXPANDED PROGRAM WITH 
MACRO CALLS (SMPMACP) (FIG), 5-9 

PROGRAMS 

EXECUTION OUTPUT FROM CHAINED 
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